rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

pass a TyContext into equal etc, rather than its components

Browse source
This commit is contained in:
rhiannon morris 2023-02-14 22:28:10 +01:00
parent 065ebedf2d
commit bee6eeacdf
5 changed files with 119 additions and 110 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tests/Tests/Typechecker.idr
View file

@ -75,7 +75,7 @@ ctx = MkTyContext new
inferredTypeEq : TyContext Three d n -> (exp, got : Term Three d n) -> M ()
inferredTypeEq ctx exp got =
catchError
(inj $ equalType ctx.dctx ctx.tctx exp got)
(inj $ equalType ctx exp got)
(\_ : Error' => throwError $ WrongInfer exp got)
qoutEq : (exp, got : QOutput Three n) -> M ()