From c17f89ef439a0b2e5a4511d8cdd55b2cfeb671b9 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 2 Sep 2015 17:26:39 +0200
Subject: Accept english language in request

---
 src/HTTP.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

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)
-- 
cgit v1.2.3