hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Fix missing comment for MG

ghc92
Lennart Spitzner 2023-03-19 18:15:47 +00:00
parent 83b13d61a0
commit 5bee3fa93d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
source/library/Language/Haskell/Brittany/Internal/ToBriDoc/Expr.hs
View File

@ -494,7 +494,7 @@ layoutExpr lexpr@(L _ expr) = do
) )
(docLit $ Text.pack "of {}") (docLit $ Text.pack "of {}")
] ]
HsCase epAnn cExp (MG _ _lmatches@(L _ matches) _) -> docHandleComms epAnn $ do HsCase epAnn cExp (MG _ lmatches@(L _ matches) _) -> docHandleComms epAnn $ do
cExpDoc <- shareDoc $ layoutExpr cExp cExpDoc <- shareDoc $ layoutExpr cExp
binderDoc <- docLit $ Text.pack "->" binderDoc <- docLit $ Text.pack "->"
funcPatDocs <- funcPatDocs <-
@ -511,6 +511,7 @@ layoutExpr lexpr@(L _ expr) = do
) )
(docSetBaseAndIndent (docSetBaseAndIndent
$ docNonBottomSpacing $ docNonBottomSpacing
$ docHandleComms lmatches
$ docLines $ docLines
$ return $ return
<$> funcPatDocs <$> funcPatDocs
@ -523,6 +524,7 @@ layoutExpr lexpr@(L _ expr) = do
(docLit $ Text.pack "of") (docLit $ Text.pack "of")
(docSetBaseAndIndent (docSetBaseAndIndent
$ docNonBottomSpacing $ docNonBottomSpacing
$ docHandleComms lmatches
$ docLines $ docLines
$ return $ return
<$> funcPatDocs <$> funcPatDocs