module Elm.Utils where import Data.Char (toUpper) cap :: String -> String cap :: String -> String cap String "" = String "" cap (Char x:String xs) = Char -> Char toUpper Char x forall a. a -> [a] -> [a] : String xs fixReserved :: String -> String fixReserved :: String -> String fixReserved String x | String x forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool `elem` [String] reservedWords = String x forall a. [a] -> [a] -> [a] ++ String "_" | Bool otherwise = String x where reservedWords :: [String] reservedWords = [ String "if", String "then", String "else" , String "case", String "of" , String "let", String "in" , String "type" , String "module", String "where" , String "import", String "as", String "hiding", String "exposing" , String "port", String "export", String "foreign" , String "perform" , String "deriving" ]