From 8b67a028ea83666b95c43b50bc751a46057ea3c5 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Mon, 9 Apr 2018 00:06:44 +0200
Subject: [PATCH] Do not put `where` on newline when no export list

(even when lconfig_allowSingleLineExportList False)
---
 src/Language/Haskell/Brittany/Internal/Layouters/Module.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Module.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Module.hs
index b959b28..1b7918d 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Module.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Module.hs
@@ -33,13 +33,16 @@ layoutModule lmod@(L _ mod') = case mod' of
       <&> _conf_layout
       .>  _lconfig_allowSingleLineExportList
       .>  confUnpack
+    -- the config should not prevent single-line layout when there is no
+    -- export list
+    let allowSingleLine = allowSingleLineExportList || Data.Maybe.isNothing les
     docLines
       $ docSeq
           [ docNodeAnnKW lmod Nothing docEmpty
              -- A pseudo node that serves merely to force documentation
              -- before the node
           , docNodeMoveToKWDP lmod AnnModule $ runFilteredAlternative $ do
-            addAlternativeCond allowSingleLineExportList $
+            addAlternativeCond allowSingleLine $
               docForceSingleline
                 $ docSeq
                 [ appSep $ docLit $ Text.pack "module"