@@ -125,13 +125,13 @@ parseImportDeclaration = do
125125 moduleName' <- moduleName
126126 stdImportHiding moduleName' <|> stdImportQualifying moduleName'
127127 where
128− stdImportHiding moduleName' = do
128+ stdImportHiding mn = do
129129 reserved "hiding"
130130 declType <- importDeclarationType Hiding
131− return $ ImportDeclaration moduleName' declType Nothing
132− stdImportQualifying moduleName' = do
131+ return $ ImportDeclaration mn declType Nothing
132+ stdImportQualifying mn = do
133133 declType <- importDeclarationType Qualifying
134− return $ ImportDeclaration moduleName' declType Nothing
134+ return $ ImportDeclaration mn declType Nothing
135135 qualImport = do
136136 reserved "qualified"
137137 indented