{-# LANGUAGE OverloadedStrings #-}

module Model.URL
  ( URL
  , getIdURL
  , getMaterialURL
  , site
  ) where

import Data.Text (Text)
import qualified Data.Text as T

type URL = Text

getIdURL :: Text -> URL
getIdURL material = T.concat [site, "/ajax/global.php?term=", material]

getMaterialURL :: Text -> URL
getMaterialURL materialId = T.concat [site, "/fiche-matiere-", materialId, ".php"]

site :: URL
site = "http://olfatheque.com"