@@ -1,7 +1,7 @@
11{-# OPTIONS_GHC -Wall #-}
22module SourceSyntax.Pattern where
33
4−import SourceSyntax.Helpers as Help
4+import qualified SourceSyntax.Helpers as Help
55import SourceSyntax.PrettyPrint
66import Text.PrettyPrint as PP
77import qualified Data.Set as Set
@@ -51,7 +51,7 @@ instance Pretty Pattern where
5151 PData "::" _ -> True
5252 _ -> False
5353 PData name ps ->
54− if isTuple name then
54+ if Help.isTuple name then
5555 PP.parens . commaCat $ map pretty ps
5656 else hsep (PP.text name : map prettyParens ps)
5757
@@ -60,6 +60,6 @@ prettyParens pattern = parensIf needsThem (pretty pattern)
6060 where
6161 needsThem =
6262 case pattern of
63− PData name (_:_) | not (isTuple name) -> True
63+ PData name (_:_) | not (Help.isTuple name) -> True
6464 PAlias _ _ -> True
6565 _ -> False