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/Main.hs | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 src/Main.hs

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
new file mode 100644
index 0000000..0d527b5
--- /dev/null
+++ b/src/Main.hs
@@ -0,0 +1,34 @@
+module Main (main) where
+
+import           Data.Text          (Text)
+import qualified Data.Text          as T
+import qualified Data.Text.IO       as T
+import qualified System.Environment as Env
+import qualified System.Exit        as Exit
+
+import qualified CSV
+import           Hiking             (Hiking (Hiking))
+import qualified Hiking
+import qualified HTTP
+import qualified Scrapper
+
+main :: IO ()
+main = do
+  url <- getUrl
+  hikings <- getHikings url
+  T.putStrLn . CSV.lines . (:) Hiking.header . map Hiking.values $ hikings
+
+getUrl :: IO Text
+getUrl = do
+  args <- Env.getArgs
+  case args of
+    (url:_) -> return $ T.pack url
+    _       -> Exit.die "No url providen"
+
+getHikings :: Text -> IO [Hiking]
+getHikings url = do
+  urls <- Scrapper.hikingsUrls <$> HTTP.get url
+  mapM getHiking urls
+
+getHiking :: Text -> IO Hiking
+getHiking = fmap Scrapper.hiking . HTTP.get
-- 
cgit v1.2.3