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