From d3dd0e129658e3617f9e6e4fa0910cb15c42520d Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Tue, 14 Apr 2015 00:10:21 +0200
Subject: Send mail to notify for new ads

---
 src/Page.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'src/Page.hs')

diff --git a/src/Page.hs b/src/Page.hs
index da15ce4..443f768 100644
--- a/src/Page.hs
+++ b/src/Page.hs
@@ -11,13 +11,11 @@ import Network.HTTP (simpleHTTP, getRequest, getResponseBody)
 
 import Model.URL
 
+import Utils.Either (mapLeft)
+
 getPage :: URL -> IO (Either Text Text)
 getPage url =
   mapLeft (T.pack . show) <$> (try (unsafeGetPage url) :: IO (Either SomeException Text))
 
 unsafeGetPage :: URL -> IO Text
 unsafeGetPage url = simpleHTTP (getRequest (T.unpack url)) >>= (\x -> T.pack <$> getResponseBody x)
-
-mapLeft :: (a -> c) -> Either a b -> Either c b
-mapLeft f (Left l) = Left (f l)
-mapLeft _ (Right r) = (Right r)
-- 
cgit v1.2.3