From bdd3b155f3e5be2e85a2edad381712ed37a4de4e Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Fri, 23 Mar 2018 17:11:39 +0100
Subject: [PATCH] Fix HsPar comment placement bug (see #111)

---
 src-literatetests/15-regressions.blt                   | 10 ++++++++++
 .../Haskell/Brittany/Internal/Layouters/Expr.hs        |  2 +-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/src-literatetests/15-regressions.blt b/src-literatetests/15-regressions.blt
index 2127eaf..0498b5d 100644
--- a/src-literatetests/15-regressions.blt
+++ b/src-literatetests/15-regressions.blt
@@ -569,3 +569,13 @@ a :: () ':- ()
 func = do
   createDirectoryIfMissing True path
   openFile fileName AppendMode
+
+#test hspar-comments
+
+alternatives :: Parser (Maybe Text)
+alternatives = -- a
+  ( -- b
+      alternativeOne   -- c
+  <|> alterantiveTwo   -- d
+  <|> alternativeThree -- e
+  ) -- f
diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
index 98d3d10..f8535e7 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
@@ -327,7 +327,7 @@ layoutExpr lexpr@(L _ expr) = do
                , opDoc
                ]
     HsPar innerExp -> do
-      innerExpDoc <- docSharedWrapper layoutExpr innerExp
+      innerExpDoc <- docSharedWrapper (docWrapNode lexpr . layoutExpr) innerExp
       docAlt
         [ docSeq
           [ docLit $ Text.pack "("