src/Utils/Xhtml.hs


1
2
3
4
5
6
7
8
9

module Utils.Xhtml (niceDashes) where

-- Very simple atm.  Not easily extended to handle emdashes too.

niceDashes      :: String -> String
niceDashes []   = []
niceDashes (x:xs)
    | x == '-'  = "–" ++ niceDashes xs
    | otherwise = x : niceDashes xs