aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/executable/haskell/View/Ad.hs5
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]