@@ -243,9 +243,8 @@ handleShowImportedModules = do
244 showModules = return . unlines . sort . map showModule
244 showModules = return . unlines . sort . map showModule
245 showModule (mn, declType, asQ) =
245 showModule (mn, declType, asQ) =
246− "import " ++ case asQ of
247− Just mn' -> "qualified " ++ N.runModuleName mn ++ " as " ++ N.runModuleName mn'
248− Nothing -> N.runModuleName mn ++ " " ++ showDeclType declType
246+ "import " ++ N.runModuleName mn ++ showDeclType declType ++
247+ foldMap (\mn' -> " as " ++ N.runModuleName mn') asQ
250 showDeclType P.Implicit = ""
249 showDeclType P.Implicit = ""
251 showDeclType (P.Explicit refs) = refsList refs
250 showDeclType (P.Explicit refs) = refsList refs