[project @ 2001-08-31 08:43:55 by simonmar]
authorsimonmar <unknown>
Fri, 31 Aug 2001 08:43:55 +0000 (08:43 +0000)
committersimonmar <unknown>
Fri, 31 Aug 2001 08:43:55 +0000 (08:43 +0000)
Add an (Ord a) context on an Ix instance which is required now.

real/hidden/Memo.hs

index 157f1c8..1cb8853 100644 (file)
@@ -8,7 +8,7 @@ import Array
 
 data Triangle a = a :^ a deriving (Eq,Ord, {-1.3-}Show)
 
-instance (Enum a,Ix a) => Ix (Triangle a) where
+instance (Enum a,Ord a,Ix a) => Ix (Triangle a) where
        range (t0 :^ b0 , t1 :^ b1) =
                [t :^ b | t <- [t0 .. t1]
                        , b <- take (1+index(t0,t1) t) [b0 .. ]