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

AnyTerm.(.def) => (.get)

Browse source
This commit is contained in:
rhiannon morris 2023-01-08 15:07:01 +01:00
parent 98fa8d9967
commit 9dbd0b066c
3 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/Quox/Equal.idr
View file

@ -37,7 +37,7 @@ parameters {auto _ : MonadError Error m} {auto _ : MonadReader Env m}
defE : Name -> m (Maybe (Elim d n))
defE x = asks $ \env => do
g <- lookup x env.defs
pure $ (!g.term).def :# g.type.def
pure $ (!g.term).get :# g.type.get
private %inline
defT : Name -> m (Maybe (Term d n))