Cleanup warnings

2021-05-17 22:39:18 +02:00
parent d7fcdbf550
commit 69f915a894
102 changed files with 1243 additions and 1185 deletions
@@ -8,11 +8,14 @@ newtype DS a = DS (a,[a],[a])
 Unsafe. -}
 fromListL :: [a] -> DS a
 fromListL (x:xs) = DS (x,xs,[])
+fromListL _ = undefined

 singleton :: a -> DS a
 singleton x = DS (x,[],[])

+head :: DS a -> a
 head (DS (x,_,_)) = x
+left, right :: DS a -> [a]
 left (DS (_,l,_)) = l
 right (DS (_,_,r)) = r