@@ -125,13 +125,13 @@ parseImportDeclaration = do
125 moduleName' <- moduleName
125 moduleName' <- moduleName
126 stdImportHiding moduleName' <|> stdImportQualifying moduleName'
126 stdImportHiding moduleName' <|> stdImportQualifying moduleName'
128− stdImportHiding moduleName' = do
128+ stdImportHiding mn = do
129 reserved "hiding"
129 reserved "hiding"
130 declType <- importDeclarationType Hiding
130 declType <- importDeclarationType Hiding
131− return $ ImportDeclaration moduleName' declType Nothing
131+ return $ ImportDeclaration mn declType Nothing
132− stdImportQualifying moduleName' = do
132+ stdImportQualifying mn = do
133 declType <- importDeclarationType Qualifying
133 declType <- importDeclarationType Qualifying
134− return $ ImportDeclaration moduleName' declType Nothing
134+ return $ ImportDeclaration mn declType Nothing
135 qualImport = do
135 qualImport = do
136 reserved "qualified"
136 reserved "qualified"