Commit fab904fd authored by simonmar's avatar simonmar

[project @ 2001-08-31 08:43:55 by simonmar]

Add an (Ord a) context on an Ix instance which is required now.
parent 138c68ea
......@@ -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 .. ]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment