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