@@ -3,6 +3,8 @@ module AST.Helpers where
4import qualified Data.Char as Char
4import qualified Data.Char as Char
6splitDots :: String -> [String]
8splitDots :: String -> [String]
7splitDots variable =
9splitDots variable =
8 go [] variable
10 go [] variable
@@ -16,7 +18,8 @@ splitDots variable =
17isTuple :: String -> Bool
19isTuple :: String -> Bool
18isTuple name =
20isTuple name =
21+ take 6 name == "_Tuple"
19− take 6 name == "_Tuple" && all Char.isDigit (drop 6 name)
22+ && all Char.isDigit (drop 6 name)
22isOp :: String -> Bool
25isOp :: String -> Bool