@@ -35,7 +35,7 @@ import' =
35 case open of
35 case open of
36 Just _ -> return (name, Hiding [])
36 Just _ -> return (name, Hiding [])
37 Nothing -> let how = try (whitespace >> (as' <|> importing'))
37 Nothing -> let how = try (whitespace >> (as' <|> importing'))
38− in (,) name <$> option (Importing []) how
38+ in (,) name <$> option (As name) how
40 as' :: IParser ImportMethod
40 as' :: IParser ImportMethod
41 as' = reserved "as" >> whitespace >> As <$> capVar <?> "alias for module"
41 as' = reserved "as" >> whitespace >> As <$> capVar <?> "alias for module"