From 8e03a571033a5d02d2287a2b1d1edd8b57aa2462 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 10 Mar 2019 19:15:45 +0100
Subject: Scrap result page and make a CSV of it

---
 src/HTTP.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 src/HTTP.hs

(limited to 'src/HTTP.hs')

diff --git a/src/HTTP.hs b/src/HTTP.hs
new file mode 100644
index 0000000..5fb3374
--- /dev/null
+++ b/src/HTTP.hs
@@ -0,0 +1,11 @@
+module HTTP (get) where
+
+import qualified Data.ByteString.Lazy as BS
+import           Data.Text            (Text)
+import qualified Data.Text            as T
+import           Data.Text.Encoding   as T
+import qualified Data.Text.IO         as T
+import qualified Network.HTTP.Conduit as HTTP
+
+get :: Text -> IO Text
+get url = (T.decodeUtf8 . BS.toStrict) <$> HTTP.simpleHttp (T.unpack url)
-- 
cgit v1.2.3