fix regressed error message for missing cases

This commit is contained in:
2025-02-16 21:46:19 -08:00
parent 001cba26ee
commit 041521ab47
5 changed files with 7 additions and 10 deletions

View File

@@ -87,7 +87,7 @@ liftWhereFn (name, Fn tm) = do
-- updateDef name fc type (Fn tm')
liftWhereFn _ = pure MkUnit
liftWhere : {{Ref2 Defs St}} M Unit
liftWhere : {{Ref2 Defs St}} M Unit
liftWhere = do
defs <- getRef Defs
ignore $ traverse liftWhereFn $ toList defs