-- 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 = String -> Char -> String -> String
forall a. Eq a => [a] -> a -> [a] -> [a]
replaceAll ",~`-=!@#$%^&*+[]\\;'/|\"<>? " '_'