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