ilyakooo0/Idris-dev
1
0
Fork 0
mirror of https://github.com/ilyakooo0/Idris-dev.git synced 2024-11-14 03:14:14 +03:00
Code Issues Projects Releases Wiki Activity

Make "forget" actually forget in reflected Elab

Browse Source
This commit is contained in:
David Raymond Christiansen 2015-04-15 13:16:51 +02:00
parent 6c7c8870b2
commit 3fe74aa6a7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Idris/ElabTerm.hs
View File

@ -1706,7 +1706,7 @@ runTactical fc env tm = do tm' <- eval tm
returnUnit
| n == tacN "prim__Forget", [tt] <- args
= do tt' <- reifyTT tt
fmap fst . get_type_val $ reflect tt'
fmap fst . get_type_val . reflectRaw $ forget tt'
| n == tacN "prim__Attack", [] <- args
= do attack
returnUnit