From 3717598bb16a23097bbe1b4e676fd4e781eec640 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 18 Jun 2018 18:07:32 +0200
Subject: Fix ad format in mail

---
 src/executable/haskell/View/Ad.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/executable')

diff --git a/src/executable/haskell/View/Ad.hs b/src/executable/haskell/View/Ad.hs
index 1739386..90025d9 100644
--- a/src/executable/haskell/View/Ad.hs
+++ b/src/executable/haskell/View/Ad.hs
@@ -50,7 +50,6 @@ renderTitle count =
 
 renderAd :: Ad -> Text
 renderAd ad =
-  let formatPrice price = T.concat [" - ", price]
-      getPrice = Maybe.fromMaybe "" . fmap formatPrice . Ad.price $ ad
-      titleLine = T.concat [Ad.name ad, Ad.location ad, getPrice]
+  let price = Maybe.fromMaybe "" . fmap (\p -> T.concat [" - ", p]) . Ad.price $ ad
+      titleLine = T.concat [Ad.name ad, " - ", Ad.location ad, price]
   in  T.intercalate "\n" [titleLine, Ad.url ad]
-- 
cgit v1.2.3