diff options
| author | Joris | 2018-06-18 18:07:32 +0200 |
|---|---|---|
| committer | Joris | 2018-06-18 18:07:32 +0200 |
| commit | 3717598bb16a23097bbe1b4e676fd4e781eec640 (patch) | |
| tree | 7852a755b0df2ace795c27b13dabe3183462bfbb | |
| parent | d14e302b9acf5164e04d8dfcd4dbd0aa1da48438 (diff) | |
Fix ad format in mail
| -rw-r--r-- | src/executable/haskell/View/Ad.hs | 5 |
1 files changed, 2 insertions, 3 deletions
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] |