on c19ccfe help sign in
14 lines 263 B history raw
2module SourceSyntax.Helpers where
4import qualified Data.Char as Char
6brkt s = "{ " ++ s ++ " }"
8isTuple name =
9 take 6 name == "_Tuple" && all Char.isDigit (drop 6 name)
11isOp = all isSymbol
13isSymbol c =
14 Char.isSymbol c || elem c "+-/*=.$<>:&|^?%#@~!"