yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor style change

Browse source
This commit is contained in:
Evan Czaplicki 2014-02-09 14:57:35 +01:00
parent 458bf2b122
commit ce073551ac
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
compiler/SourceSyntax/Module.hs
View file

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