@@ -152,16 +152,9 @@ parseImportDeclaration' = do
153 stdImport = do
153 stdImport = do
154 moduleName' <- moduleName
154 moduleName' <- moduleName
155− suffixHiding moduleName' <|> suffixQualifyingList moduleName'
157− suffixHiding mn = do
159− declType <- qualifyingList Hiding
160− return (mn, declType, Nothing)
161− suffixQualifyingList mn = do
162− declType <- qualifyingList Explicit
155+ declType <- reserved "hiding" *> qualifyingList Hiding <|> qualifyingList Explicit
163− qName <- P.optionMaybe qualifiedName
156+ qName <- P.optionMaybe qualifiedName
164− return (mn, declType, qName)
157+ return (moduleName', declType, qName)
165 qualifiedName = reserved "as" *> moduleName
158 qualifiedName = reserved "as" *> moduleName
166 qualImport = do
159 qualImport = do
167 reserved "qualified"
160 reserved "qualified"