Fix comment duplication on Matches

2023-05-12 20:43:48 +00:00 · 2023-05-12 20:43:48 +00:00 · 9c5a490938
parent e38836fdab
commit 9c5a490938
1 changed files with 1 additions and 1 deletions
--- 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