shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add missing Ord instance

--- a/lib/Data/List.hs

+++ b/lib/Data/List.hs

@@ -28,6 +28,11 @@

   (x:xs) == (y:ys)  =  x == y && xs == ys

   _      == _       =  False

+instance forall a . Ord a => Ord [a] where

+  []     <= _       =  True

+  (_:_)  <= []      =  False

+  (x:xs) <= (y:ys)  =  x < y || x == y && xs <= ys

+

 instance Functor [] where

   fmap = map

-- 

⑨