diff options
| author | Joris | 2016-07-14 15:47:33 +0200 |
|---|---|---|
| committer | Joris | 2016-07-14 15:47:33 +0200 |
| commit | b846aa65f8f21189f39236f88908267167004a35 (patch) | |
| tree | d0c553170d4df005797139f6f304b24818ff6c29 /src/View/Plain/Ad.hs | |
| parent | 69e69017b75d1cdaa1fd2aef2818de5111b29735 (diff) | |
| download | ad-listener-b846aa65f8f21189f39236f88908267167004a35.tar.gz ad-listener-b846aa65f8f21189f39236f88908267167004a35.tar.bz2 ad-listener-b846aa65f8f21189f39236f88908267167004a35.zip | |
Add isPro info
Diffstat (limited to 'src/View/Plain/Ad.hs')
| -rw-r--r-- | src/View/Plain/Ad.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/View/Plain/Ad.hs b/src/View/Plain/Ad.hs index 75e35e2..b9e980e 100644 --- a/src/View/Plain/Ad.hs +++ b/src/View/Plain/Ad.hs @@ -75,7 +75,8 @@ renderResume :: Resume -> Text renderResume resume = let formatPrice price = T.concat [" - ", price] getPrice = fromMaybe "" . fmap formatPrice . Resume.price $ resume - titleLine = T.concat [Resume.name resume, getPrice] + isPro = if Resume.isPro resume then " - PRO" else "" + titleLine = T.concat [Resume.name resume, getPrice, isPro] in T.intercalate "\n" [titleLine, Resume.url resume] renderDetail :: Conf -> Detail -> Text |