diff options
| -rw-r--r-- | src/Model/URL.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/Model/URL.hs b/src/Model/URL.hs index 76a9e86..04fcf6b 100644 --- a/src/Model/URL.hs +++ b/src/Model/URL.hs @@ -13,7 +13,12 @@ import qualified Data.Text as T type URL = Text getIdURL :: Text -> URL -getIdURL material = T.concat [site, "/ajax/global.php?term=", material] +getIdURL material = + T.concat + [ site + , "/ajax/global.php?term=" + , T.replace " " "+" material + ] getMaterialURL :: Text -> URL getMaterialURL materialId = T.concat [site, "/fiche-matiere-", materialId, ".php"] |