simpler append function

2024-03-01 11:19:08 +01:00
parent 604206776f
commit ca0fea108f
2 changed files with 6 additions and 4 deletions
--- a/test/Main.hs
+++ b/test/Main.hs
@ -3,6 +3,10 @@ import GoodList

 abc :: GoodList Char
 abc = cons 'a' $ cons 'b' $ cons 'c' Empty
+def :: GoodList Char
+def = cons 'd' $ cons 'e' $ cons 'f' Empty

 main :: IO ()
-main = print abc
+main = print abc >>
+       print def >>
+       print (abc `append` def)