From: ross <unknown>
Date: Tue, 16 Nov 2004 23:36:36 +0000 (+0000)
Subject: [project @ 2004-11-16 23:36:36 by ross]
X-Git-Tag: nhc98-1-18-release~184
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9d21497027ecdd0ccfa6d152bf120063e5fc6236;p=ghc-base.git

[project @ 2004-11-16 23:36:36 by ross]
drop with a negative length should yield the whole list, not []
---

diff --git a/GHC/List.lhs b/GHC/List.lhs
index edd823e..96b5383 100644
--- 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]