diff options
Diffstat (limited to 'src/Page.hs')
-rw-r--r-- | src/Page.hs | 6 |
1 files changed, 2 insertions, 4 deletions
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) |