@@ -30,12 +30,12 @@ instance (Pretty def) => Pretty (Module def) where
31 prettyDecls = P.sep $ map pretty decls
31 prettyDecls = P.sep $ map pretty decls
33− modul = P.text "module" <+> moduleName <+> where'
33+ modul = P.text "module" <+> moduleName <+> prettyExports <+> P.text "where"
34 moduleName = P.text $ List.intercalate "." modNames
34 moduleName = P.text $ List.intercalate "." modNames
35− where' =
35+ prettyExports =
36 case exports of
36 case exports of
37− [] -> P.text "where"
37+ [] -> P.empty
38− _ -> P.parens (commaCat $ map P.text exports) <+> P.text "where"
38+ _ -> P.parens . commaCat $ map P.text exports
40 prettyImports = P.vcat $ map prettyImport imports
40 prettyImports = P.vcat $ map prettyImport imports