From 39e565c182b6cf0a389a9364985aa015705868d2 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <lsp@informatik.uni-kiel.de>
Date: Fri, 12 Aug 2016 00:54:20 +0200
Subject: [PATCH] Fix RecordUpd comment placement bug
---
src/Language/Haskell/Brittany/Layouters/Expr.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/Language/Haskell/Brittany/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Layouters/Expr.hs
index ae722d1..83811cf 100644
--- a/src/Language/Haskell/Brittany/Layouters/Expr.hs
+++ b/src/Language/Haskell/Brittany/Layouters/Expr.hs
@@ -584,10 +584,10 @@ layoutExpr lexpr@(L _ expr) = docWrapNode lexpr $ case expr of
$ docPar
(docNodeAnnKW lexpr Nothing $ rExprDoc)
(docNonBottomSpacing $ docLines $ let
- line1 = docWrapNode rF1f $ docCols ColRecUpdate
+ line1 = docCols ColRecUpdate
[ appSep $ docLit $ Text.pack "{"
- , appSep $ docLit $ rF1n
- , case rF1e of
+ , docWrapNodePrior rF1f $ appSep $ docLit $ rF1n
+ , docWrapNodeRest rF1f $ case rF1e of
Just x -> docSeq [ appSep $ docLit $ Text.pack "="
, docAddBaseY BrIndentRegular $ x
]