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

(limited to 'src/Hiking.hs')

diff --git a/src/Hiking.hs b/src/Hiking.hs
new file mode 100644
index 0000000..2d04b4f
--- /dev/null
+++ b/src/Hiking.hs
@@ -0,0 +1,42 @@
+module Hiking (Hiking(..), header, values) where
+
+import           Data.Text
+import qualified Data.Text as T
+
+data Hiking = Hiking
+  { name        :: Text
+  , description :: Text
+  , lat         :: Text
+  , lng         :: Text
+  , url         :: Text
+  , duration    :: Text
+  , distance    :: Text
+  , elevation   :: Text
+  , difficulty  :: Text
+  } deriving (Eq, Show)
+
+header :: [Text]
+header =
+  [ "name"
+  , "lat"
+  , "lng"
+  , "link"
+  , "durée"
+  , "distance"
+  , "dénivelé"
+  , "color"
+  , "infos"
+  ]
+
+values :: Hiking -> [Text]
+values h =
+  [ name h
+  , lat h
+  , lng h
+  , url h
+  , duration h
+  , distance h
+  , elevation h
+  , difficulty h
+  , description h
+  ]
-- 
cgit v1.2.3