Fix HsPar comment placement bug (see #111)

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

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 "("