aboutsummaryrefslogtreecommitdiff
path: root/src/View/Plain
diff options
context:
space:
mode:
Diffstat (limited to 'src/View/Plain')
-rw-r--r--src/View/Plain/Ad.hs3
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