pingu/GoodList
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

format

Browse Source
This commit is contained in:
pingu 2024-03-01 11:24:37 +01:00
parent 9437f47ff7
commit 983f91f981
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/GoodList.hs
View File

@ -58,6 +58,6 @@ append (Singleton x) = cons x
append (Multiple a b c) = cons a . append b . cons c append (Multiple a b c) = cons a . append b . cons c
join :: GoodList (GoodList a) -> GoodList a join :: GoodList (GoodList a) -> GoodList a
join Empty = Empty join Empty = Empty
join (Singleton x) = x join (Singleton x) = x
join (Multiple a b c) = append (a `append` join b) c join (Multiple a b c) = append (a `append` join b) c