git.iko.soy/elk
on ec24738 help sign in
elk/compiler/SourceSyntax/Helpers.hs
21 lines 443 B history raw
2module SourceSyntax.Helpers where
4import qualified Data.Char as Char
6brkt :: String -> String
7brkt s = "{ " ++ s ++ " }"
9isTuple :: String -> Bool
10isTuple name =
11 take 6 name == "_Tuple" && all Char.isDigit (drop 6 name)
13isOp :: String -> Bool
14isOp = all isSymbol
16isSymbol :: Char -> Bool
17isSymbol c =
18 Char.isSymbol c || elem c "+-/*=.$<>:&|^?%#@~!"
20deprime :: String -> String
21deprime = map (\c -> if c == '\'' then '$' else c)