diff options
Diffstat (limited to 'src/executable')
| -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] |