From 9c5a4909389ff9f5fe57b1ba7e2c538abac5393b Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Fri, 12 May 2023 20:43:48 +0000 Subject: [PATCH] Fix comment duplication on Matches --- .../library/Language/Haskell/Brittany/Internal/ToBriDoc/Decl.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/Decl.hs b/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/Decl.hs index 9798601..0132c4d 100644 --- a/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/Decl.hs +++ b/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/Decl.hs @@ -263,7 +263,7 @@ layoutPatternBind funId binderDoc lmatch@(L _ match) = do let t' = fixPatternBindIdentifier match t docLit t' _ -> pure Nothing - patDoc <- docHandleComms lmatch $ case (mIdDoc, patDocs) of -- TODO92 we use lmatch twice here! + patDoc <- case (mIdDoc, patDocs) of (Just idDoc, p1 : p2 : pr) | isInfix -> if null pr then docCols ColPatternsFuncInfix