diff options
Diffstat (limited to 'src/Page.hs')
| -rw-r--r-- | src/Page.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Page.hs b/src/Page.hs index b048410..da15ce4 100644 --- a/src/Page.hs +++ b/src/Page.hs @@ -4,18 +4,19 @@ module Page import Control.Exception (SomeException, try) +import Data.Text (Text) import qualified Data.Text as T import Network.HTTP (simpleHTTP, getRequest, getResponseBody) import Model.URL -getPage :: URL -> IO (Either T.Text T.Text) +getPage :: URL -> IO (Either Text Text) getPage url = - mapLeft (T.pack . show) <$> (try (unsafeGetPage url) :: IO (Either SomeException T.Text)) + mapLeft (T.pack . show) <$> (try (unsafeGetPage url) :: IO (Either SomeException Text)) -unsafeGetPage :: URL -> IO T.Text -unsafeGetPage url = simpleHTTP (getRequest url) >>= (\x -> T.pack <$> getResponseBody x) +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) |