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-10-29 01:16:48 by andy]
[ghc-hetmet.git]
/
ghc
/
lib
/
std
/
List.lhs
diff --git
a/ghc/lib/std/List.lhs
b/ghc/lib/std/List.lhs
index
abdde60
..
4f70d3f
100644
(file)
--- a/
ghc/lib/std/List.lhs
+++ b/
ghc/lib/std/List.lhs
@@
-7,9
+7,12
@@
\begin{code}
module List
(
\begin{code}
module List
(
+#ifndef __HUGS__
[]((:), [])
[]((:), [])
+ ,
+#endif
- , elemIndex -- :: (Eq a) => a -> [a] -> Maybe Int
+ elemIndex -- :: (Eq a) => a -> [a] -> Maybe Int
, elemIndices -- :: (Eq a) => a -> [a] -> [Int]
, find -- :: (a -> Bool) -> [a] -> Maybe a
, elemIndices -- :: (Eq a) => a -> [a] -> [Int]
, find -- :: (a -> Bool) -> [a] -> Maybe a
@@
-127,12
+130,15
@@
module List
) where
import Prelude
) where
import Prelude
-import PrelShow ( lines, words, unlines, unwords )
import Maybe ( listToMaybe )
import Maybe ( listToMaybe )
+
+#ifndef __HUGS__
+import PrelShow ( lines, words, unlines, unwords )
import PrelBase ( Int(..), map, (++) )
import PrelGHC ( (+#) )
import PrelBase ( Int(..), map, (++) )
import PrelGHC ( (+#) )
+#endif
-infix 5 \\
+infix 5 \\
\end{code}
%*********************************************************
\end{code}
%*********************************************************
@@
-181,12
+187,12
@@
nub :: (Eq a) => [a] -> [a]
nub = nubBy (==)
#else
-- stolen from HBC
nub = nubBy (==)
#else
-- stolen from HBC
-nub l = nub' l []
+nub l = nub' l [] -- '
where
where
- nub' [] _ = []
- nub' (x:xs) ls
- | x `elem` ls = nub' xs ls
- | otherwise = x : nub' xs (x:ls)
+ nub' [] _ = [] -- '
+ nub' (x:xs) ls -- '
+ | x `elem` ls = nub' xs ls -- '
+ | otherwise = x : nub' xs (x:ls) -- '
#endif
nubBy :: (a -> a -> Bool) -> [a] -> [a]
#endif
nubBy :: (a -> a -> Bool) -> [a] -> [a]