Attempt 2; only delete values, not refs

2024-09-19 01:18:40 +03:00 · 2020-06-13 18:05:37 -06:00 · 2020-06-13 18:05:37 -06:00 · fd89b64425
commit fd89b64425
parent 5dd7c03a72
1 changed files with 2 additions and 0 deletions
--- a/src/Emit.hs
+++ b/src/Emit.hs
@ -371,6 +371,8 @@ toC toCMode (Binder meta root) = emitterSrc (execState (visit startingIndent roo
                       when isNotVoid $
                         appendToSrc (addIndent indent' ++ retVar ++ " = " ++ caseExprRetVal ++ ";\n")
                       let Just caseLhsInfo' = caseLhsInfo
+                       when (matchMode == MatchValue)
+                         (delete indent' caseLhsInfo')
                       appendToSrc (addIndent indent ++ "}\n")

              in  do exprVar <- visit indent expr