diff --git a/src-literatetests/10-tests.blt b/src-literatetests/10-tests.blt index 40a8852..0a3140b 100644 --- a/src-literatetests/10-tests.blt +++ b/src-literatetests/10-tests.blt @@ -318,6 +318,11 @@ func = f ############################################################################### ############################################################################### +#test nullary data type +data Foo = Bar {} + +data Biz = Baz + #test single record data Foo = Bar { foo :: Baz } diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs b/src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs index 19ec610..4bb2a98 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs @@ -289,7 +289,7 @@ createDetailsDoc consNameStr details = case details of IndentPolicyLeft -> docAlt [singleLine, leftIndented] IndentPolicyMultiple -> docAlt [singleLine, multiIndented] IndentPolicyFree -> docAlt [singleLine, multiIndented] - RecCon (L _ []) -> docEmpty + RecCon (L _ []) -> docSeq [docLit consNameStr, docSeparator, docLit $ Text.pack "{}"] #if MIN_VERSION_ghc(8,6,0) /* ghc-8.6 */ RecCon lRec@(L _ [lField@(L _ (ConDeclField _ext names t _))]) -> #else