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
  ]