Keep linter happy

This commit is contained in:
Edwin Brady 2021-05-08 15:52:47 +01:00
parent 66930113bd
commit 251ba812d6

View File

@ -307,7 +307,7 @@ doCaseOfCase fc x xalts alts def
updateAlt : CConAlt vars -> CConAlt vars
updateAlt (MkConAlt n ci t args sc)
= MkConAlt n ci t args $
CConCase fc sc
CConCase fc sc
(map (weakenNs (mkSizeOf args)) alts)
(map (weakenNs (mkSizeOf args)) def)