diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2023-01-08 00:58:45 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2023-01-08 00:58:45 +0000 |
| commit | 8ac4bd7b206adae0883cc29c239d11a75c090b5f (patch) | |
| tree | 61e2b4af03c2950230e956c8aaed60e967f47350 | |
| parent | 5e7936a7ecd9b3d3e2562d2c810bffa836558dbe (diff) | |
refactor: fix grouping.
| -rw-r--r-- | src/Obs/Typing.idr | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Obs/Typing.idr b/src/Obs/Typing.idr index 2a6aeaa..4183525 100644 --- a/src/Obs/Typing.idr +++ b/src/Obs/Typing.idr @@ -462,8 +462,8 @@ infer' ctx False = do infer' ctx (If {returnType = MkLambda var returnType, discriminant, true, false}) = do info "encountered if" - trace "checking discriminant is bool" + trace "checking discriminant is bool" discriminant <- check ctx (Set 0) (Cnstr Bool) discriminant trace "discriminant is well typed" |