From 80f370a8e10690e65718f66dd72de12d6d771f05 Mon Sep 17 00:00:00 2001
From: Evan Rutledge Borden <eborden@frontrowed.com>
Date: Tue, 12 Nov 2019 16:02:14 -0600
Subject: [PATCH] Support nullary data types

Add tests for nullary prefix data types and nullary record data types.
---
 src-literatetests/10-tests.blt                               | 5 +++++
 src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

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