From ca3c8b6f9eada12dd3747460b3536e0d95c9d627 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Wed, 5 Jun 2019 15:56:32 +0200
Subject: [PATCH] Add one source doc

---
 src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
index ec3f06f..9366a6f 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
@@ -960,8 +960,17 @@ layoutLhsAndType
 layoutLhsAndType hasComments lhs sep typeDoc = do
   let sepDoc = appSep . docLit $ Text.pack sep
   runFilteredAlternative $ do
+    -- (separators probably are "=" or "::")
+    -- lhs = type
+    -- lhs :: type
     addAlternativeCond (not hasComments)
       $ docSeq [lhs, sepDoc, docForceSingleline typeDoc]
+    -- lhs
+    --   :: typeA
+    --   -> typeB
+    -- lhs
+    --   =  typeA
+    --   -> typeB
     addAlternative $ docAddBaseY BrIndentRegular $ docPar lhs $ docCols
       ColTyOpPrefix
       [sepDoc, docAddBaseY (BrIndentSpecial (length sep + 1)) typeDoc]