@@ -243,9 +243,8 @@ handleShowImportedModules = do
243243 where
244244 showModules = return . unlines . sort . map showModule
245245 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
249248
250249 showDeclType P.Implicit = ""
251250 showDeclType (P.Explicit refs) = refsList refs