Use slugger 0.1.0.1 for post titles

ssg/src/Main.hs

@@ -2,9 +2,9 @@
 
 import Control.Monad (forM_)
 import Data.Maybe (fromMaybe)
-import qualified Data.Text as T
 import Hakyll
-import Slug (toSlug)
+import qualified Data.Text as T
+import qualified Data.Text.Slugger as Slugger
 import Text.Pandoc
   ( Extension (Ext_fenced_code_attributes, Ext_footnotes, Ext_gfm_auto_identifiers, Ext_implicit_header_references, Ext_smart),
     Extensions,
@@ -229,7 +229,7 @@ getTitleFromMeta =
 
 fileNameFromTitle :: Metadata -> FilePath
 fileNameFromTitle =
-  T.unpack . (`T.append` ".html") . toSlug . T.pack . getTitleFromMeta
+  T.unpack . (`T.append` ".html") . Slugger.toSlug . T.pack . getTitleFromMeta
 
 titleRoute :: Metadata -> Routes
 titleRoute =

ssg/src/Slug.hs

@@ -1,22 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module Slug
-  ( toSlug,
-  )
-where
-
-import Data.Char (isAlphaNum)
-import qualified Data.Text as T
-
-keepAlphaNum :: Char -> Char
-keepAlphaNum x
-  | isAlphaNum x = x
-  | otherwise = ' '
-
-clean :: T.Text -> T.Text
-clean =
-  T.map keepAlphaNum . T.replace "'" "" . T.replace "&" "and"
-
-toSlug :: T.Text -> T.Text
-toSlug =
-  T.intercalate (T.singleton '-') . T.words . T.toLower . clean