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

add back export lost in merge

Browse Source
This commit is contained in:
Mathew Polzin 2021-05-03 23:28:23 -07:00
parent 647c38b2fa
commit ef89e2930b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Core/CaseTree.idr
View File

@ -59,6 +59,7 @@ mutual
measureAlts (ConstCase x y) = 1 + (measure y) measureAlts (ConstCase x y) = 1 + (measure y)
measureAlts (DefaultCase x) = 1 + (measure x) measureAlts (DefaultCase x) = 1 + (measure x)
export
isDefault : CaseAlt vars -> Bool isDefault : CaseAlt vars -> Bool
isDefault (DefaultCase _) = True isDefault (DefaultCase _) = True
isDefault _ = False isDefault _ = False