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