diff options
Diffstat (limited to 'src/View/Plain')
| -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 |