-- Contains a function that removes special characters from a string.
module Utils.Drasil.Strings (
    toPlainName
) where

import Utils.Drasil.Lists (replaceAll)

-- | Replace occurences of special characters (@",~`-=!@#$%^&*+[]\\;'/|\"<>? "@)
--   with underscores (@"_"@).
-- 
--   TODO: This can probably become a bit more comprehensive, anything other
--   than a-z, A-Z, or 0-9 could probably be replaced.
toPlainName :: String -> String
toPlainName :: String -> String
toPlainName = forall a. Eq a => [a] -> a -> [a] -> [a]
replaceAll String
",~`-=!@#$%^&*+[]\\;'/|\"<>? " Char
'_'