diff options
Diffstat (limited to 'src/HTTP.hs')
| -rw-r--r-- | src/HTTP.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/HTTP.hs b/src/HTTP.hs index 8d8d34a..1876410 100644 --- a/src/HTTP.hs +++ b/src/HTTP.hs @@ -11,6 +11,7 @@ import qualified Data.Text as T import qualified Data.Text.IO as T import Network.HTTP (simpleHTTP, getRequest, getResponseBody) +import Network.HTTP.Headers (insertHeader, HeaderName(HdrAcceptLanguage)) import Model.URL @@ -21,4 +22,4 @@ getPage url = left (T.pack . show) <$> (try (unsafeGetPage url) :: IO (Either SomeException Text)) unsafeGetPage :: URL -> IO Text -unsafeGetPage url = simpleHTTP (getRequest (T.unpack url)) >>= (\x -> T.pack . decodeString <$> getResponseBody x) +unsafeGetPage url = simpleHTTP (insertHeader HdrAcceptLanguage "en" $ getRequest (T.unpack url)) >>= (\x -> T.pack . decodeString <$> getResponseBody x) |