From b846aa65f8f21189f39236f88908267167004a35 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 14 Jul 2016 15:47:33 +0200
Subject: Add isPro info

---
 src/View/Plain/Ad.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/View/Plain')

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
-- 
cgit v1.2.3