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"
                        ]