@@ -3,6 +3,8 @@ module AST.Helpers where
33
44import qualified Data.Char as Char
55
6+
7+
68splitDots :: String -> [String]
79splitDots variable =
810 go [] variable
@@ -16,7 +18,8 @@ splitDots variable =
1618
1719isTuple :: String -> Bool
1820isTuple name =
19− take 6 name == "_Tuple" && all Char.isDigit (drop 6 name)
21+ take 6 name == "_Tuple"
22+ && all Char.isDigit (drop 6 name)
2023
2124
2225isOp :: String -> Bool