diff options
-rw-r--r-- | README.md | 1 | ||||
-rw-r--r-- | src/HTTP.hs | 3 |
2 files changed, 3 insertions, 1 deletions
@@ -9,4 +9,5 @@ cabal sandbox init cabal install --only-dependencies npm install npm run build +./run lemon cocoa ``` 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) |