projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[project @ 2004-11-16 23:36:36 by ross]
[ghc-base.git]
/
GHC
/
List.lhs
diff --git
a/GHC/List.lhs
b/GHC/List.lhs
index
edd823e
..
96b5383
100644
(file)
--- a/
GHC/List.lhs
+++ b/
GHC/List.lhs
@@
-341,7
+341,7
@@
take_unsafe_UInt_append m ls rs =
(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]