Allow import hiding with qualified imports

garyb · garyb · commit 17eaed523c3e · 2015-11-21T15:33:03.000Z
diff --git a/src/Language/PureScript/Parser/Declarations.hs b/src/Language/PureScript/Parser/Declarations.hs
@@ -152,16 +152,9 @@ parseImportDeclaration' = do
   where
   stdImport = do
     moduleName' <- moduleName
-    suffixHiding moduleName' <|> suffixQualifyingList moduleName'
-    where
-    suffixHiding mn = do
-      reserved "hiding"
-      declType <- qualifyingList Hiding
-      return (mn, declType, Nothing)
-    suffixQualifyingList mn = do
-      declType <- qualifyingList Explicit
-      qName <- P.optionMaybe qualifiedName
-      return (mn, declType, qName)
+    declType <- reserved "hiding" *> qualifyingList Hiding <|> qualifyingList Explicit
+    qName <- P.optionMaybe qualifiedName
+    return (moduleName', declType, qName)
   qualifiedName = reserved "as" *> moduleName
   qualImport = do
     reserved "qualified"
