projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1999-02-01 10:02:15 by sof]
[ghc-hetmet.git]
/
ghc
/
lib
/
std
/
Ix.lhs
diff --git
a/ghc/lib/std/Ix.lhs
b/ghc/lib/std/Ix.lhs
index
545c266
..
5f121d8
100644
(file)
--- a/
ghc/lib/std/Ix.lhs
+++ b/
ghc/lib/std/Ix.lhs
@@
-41,7
+41,7
@@
import PrelBase
%*********************************************************
\begin{code}
%*********************************************************
\begin{code}
-class ({-Show a,-} Ord a) => Ix a where
+class (Ord a) => Ix a where
range :: (a,a) -> [a]
index :: (a,a) -> a -> Int
inRange :: (a,a) -> a -> Bool
range :: (a,a) -> [a]
index :: (a,a) -> a -> Int
inRange :: (a,a) -> a -> Bool
@@
-56,16
+56,16
@@
class ({-Show a,-} Ord a) => Ix a where
\begin{code}
instance Ix Char where
\begin{code}
instance Ix Char where
- range (c,c')
- | c <= c' = [c..c']
+ range (m,n)
+ | m <= n = [m..n]
| otherwise = []
| otherwise = []
- index b@(c,_) ci
- | inRange b ci = fromEnum ci - fromEnum c
- | otherwise = indexError ci b "Char"
+ index b@(m,_) i
+ | inRange b i = fromEnum i - fromEnum m
+ | otherwise = indexError i b "Char"
inRange (m,n) i = m <= i && i <= n
instance Ix Int where
inRange (m,n) i = m <= i && i <= n
instance Ix Int where
- range (m,n)
+ range (m,n)
| m <= n = [m..n]
| otherwise = []
index b@(m,_) i
| m <= n = [m..n]
| otherwise = []
index b@(m,_) i