aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/HTTP.hs3
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)