X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FList.lhs;h=02119655722cd3b329beda5826e2fdf42d1578d8;hb=e9e2a5412bb7cda8d13a063ac403d9f18ac97380;hp=edd823eb3e5ba8e9d05288921a3b756740fa4cec;hpb=7ae1d0ce9df2c5d7fd5edc8d613061c8c5c14c02;p=ghc-base.git

diff --git a/GHC/List.lhs b/GHC/List.lhs
index edd823e..0211965 100644
--- a/GHC/List.lhs
+++ b/GHC/List.lhs
@@ -1,5 +1,5 @@
 \begin{code}
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.List
@@ -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]