Skip to content

Commit c350cdc

Browse files
Fix broken unit tests from previous PR (#857)
1 parent 0c9f4d6 commit c350cdc

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

vehicle/tests/unit/Vehicle/Test/Unit/Compile/Normalisation.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -96,7 +96,7 @@ binding = Binder p (BinderDisplayForm (OnlyName "x") False) Explicit Relevant
9696
mkNoOpEnv :: Lv -> BoundEnv builtin
9797
mkNoOpEnv boundCtxSize = reverse [mkDefaultEnvEntry "_" (VBoundVar i []) | i <- [0 .. boundCtxSize - 1]]
9898
where
99-
mkDefaultEnvEntry :: Name -> Value builtin -> EnvEntry closure builtin
99+
mkDefaultEnvEntry :: Name -> Value builtin -> EnvEntry builtin
100100
mkDefaultEnvEntry name value = (Binder mempty displayForm Explicit Relevant (), value)
101101
where
102102
displayForm = BinderDisplayForm (OnlyName name) True

0 commit comments

Comments
 (0)