projects
/
haskell-directory.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-10-22 00:37:01 by ross]
[haskell-directory.git]
/
GHC
/
List.lhs
diff --git
a/GHC/List.lhs
b/GHC/List.lhs
index
edd823e
..
3dd0da1
100644
(file)
--- a/
GHC/List.lhs
+++ b/
GHC/List.lhs
@@
-1,5
+1,5
@@
\begin{code}
\begin{code}
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
-----------------------------------------------------------------------------
-- |
-- Module : GHC.List
-----------------------------------------------------------------------------
-- |
-- Module : GHC.List
@@
-14,6
+14,7
@@
--
-----------------------------------------------------------------------------
--
-----------------------------------------------------------------------------
+-- #hide
module GHC.List (
-- [] (..), -- Not Haskell 98; built in syntax
module GHC.List (
-- [] (..), -- Not Haskell 98; built in syntax
@@
-341,7
+342,7
@@
take_unsafe_UInt_append m ls rs =
(x:xs) -> x : take_unsafe_UInt_append (m -# 1#) xs rs
drop (I# n#) ls
(x:xs) -> x : take_unsafe_UInt_append (m -# 1#) xs rs
drop (I# n#) ls
- | n# <# 0# = []
+ | n# <# 0# = ls
| otherwise = drop# n# ls
where
drop# :: Int# -> [a] -> [a]
| otherwise = drop# n# ls
where
drop# :: Int# -> [a] -> [a]