@@ -3,12 +3,19 @@ module SourceSyntax.Helpers where
4import qualified Data.Char as Char
4import qualified Data.Char as Char
6+brkt :: String -> String
6brkt s = "{ " ++ s ++ " }"
7brkt s = "{ " ++ s ++ " }"
9+isTuple :: String -> Bool
8isTuple name =
10isTuple name =
9 take 6 name == "_Tuple" && all Char.isDigit (drop 6 name)
11 take 6 name == "_Tuple" && all Char.isDigit (drop 6 name)
13+isOp :: String -> Bool
11isOp = all isSymbol
14isOp = all isSymbol
16+isSymbol :: Char -> Bool
13isSymbol c =
17isSymbol c =
14− Char.isSymbol c || elem c "+-/*=.$<>:&|^?%#@~!"
18+ Char.isSymbol c || elem c "+-/*=.$<>:&|^?%#@~!"
20+deprime :: String -> String
21+deprime = map (\c -> if c == '\'' then '$' else c)