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