idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-11-24 06:52:19 +03:00
Code Issues Projects Releases Wiki Activity

Slightly neater reflection008 test

Browse Source
This commit is contained in:
Edwin Brady 2020-06-03 09:25:09 +01:00
parent 3a7aedf0f4
commit 946e1b3a51
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/idris2/reflection008/Interp.idr
View File

@ -43,8 +43,8 @@ interp env (Val x) = pure x
interp env (Lam scope) interp env (Lam scope)
= lambda _ (\val => interp (val :: env) scope) = lambda _ (\val => interp (val :: env) scope)
interp env (App f a) interp env (App f a)
= pure $ !(interp env f) !(interp env a) = interp env f <*> interp env a
interp env (Op f x y) = pure $ f !(interp env x) !(interp env y) interp env (Op f x y) = f <$> interp env x <*> interp env y
%macro %macro
eval : Env gam -> Lang gam t -> Elab (interpTy t) eval : Env gam -> Lang gam t -> Elab (interpTy t)