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') 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