Noratrieb/idris-learning
1
0
Fork 0
mirror of https://github.com/Noratrieb/idris-learning.git synced 2026-01-16 05:55:02 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

:)

Browse source
This commit is contained in:
nora 2021-07-09 14:09:47 +02:00
parent 3a9793f913
commit b9c358c622
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
chapter4/Types.idr
View file

@ -84,6 +84,7 @@ insert x orig@(Node left val right) = case compare x val of
EQ => orig EQ => orig
GT => Node left val (insert x right) GT => Node left val (insert x right)
-- and it worked on the first try without any type errors lets goooo
listToTree : Ord elem => List elem -> BSTree elem listToTree : Ord elem => List elem -> BSTree elem
listToTree xs = listToTreeInner xs Empty listToTree xs = listToTreeInner xs Empty
where where