git.iko.soy/elk
on 1ed37fe help sign in
elk/compiler/SourceSyntax/Helpers.hs
18 lines 363 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 "+-/*=.$<>:&|^?%#@~!"