Commit 3717598b authored by Joris's avatar Joris

Fix ad format in mail

parent d14e302b
......@@ -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]
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment