    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 Char -> String -> String
    forall a. a -> [a] -> [a]
    : String
    xs

    fixReserved :: String -> String
    fixReserved :: String -> String
    fixReserved String
    x | String
    x String -> [String] -> Bool
    forall a. Eq a => a -> [a] -> Bool
    forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
    `elem` [String]
    reservedWords = String
    x String -> String -> String
    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"
                            ]