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

[ fix ] typo in eqTree

Browse Source
This commit is contained in:
Guillaume ALLAIS 2020-08-26 11:18:27 +01:00 committed by G. Allais
parent a7ff5aa71f
commit 3a7b72f384
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Core/CaseTree.idr
View File

@ -82,8 +82,8 @@ mutual
export export
eqTree : CaseTree vs -> CaseTree vs' -> Bool eqTree : CaseTree vs -> CaseTree vs' -> Bool
eqTree (Case i _ _ alts) (Case i' _ _ alts') eqTree (Case i _ _ alts) (Case i' _ _ alts')
= i == i = i == i'
&& length alts == length alts && length alts == length alts'
&& allTrue (zipWith eqAlt alts alts') && allTrue (zipWith eqAlt alts alts')
eqTree (STerm _ t) (STerm _ t') = eqTerm t t' eqTree (STerm _ t) (STerm _ t') = eqTerm t t'
eqTree (Unmatched _) (Unmatched _) = True eqTree (Unmatched _) (Unmatched _) = True