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

Add Eq instance for Universe in reflection

Browse Source
This commit is contained in:
David Raymond Christiansen 2015-08-13 17:15:02 -07:00
parent 82c2735637
commit cf6c277715
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libs/base/Language/Reflection/Utils.idr
View File

@ -242,6 +242,12 @@ instance Eq TT where
equalp (TType u) (TType u') = u == u'
equalp x y = False
instance Eq Universe where
Reflection.NullType == Reflection.NullType = True
Reflection.UniqueType == Reflection.UniqueType = True
Reflection.AllTypes == Reflection.AllTypes = True
_ == _ = False
total
forget : TT -> Maybe Raw
forget tm = fe [] tm