From 9d21497027ecdd0ccfa6d152bf120063e5fc6236 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Tue, 16 Nov 2004 23:36:36 +0000
Subject: [PATCH] [project @ 2004-11-16 23:36:36 by ross] drop with a negative
 length should yield the whole list, not []

---
 GHC/List.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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]
-- 
1.7.10.4