[project @ 1998-06-18 15:33:28 by sof]

fixed dropPS typo

diff --git a/ghc/lib/misc/PackedString.lhs b/ghc/lib/misc/PackedString.lhs
index 59a552f..2277bc1 100644 (file)
--- a/ghc/lib/misc/PackedString.lhs
+++ b/ghc/lib/misc/PackedString.lhs
@@ -714,7 +714,7 @@ takePS (I# n) ps
 
 dropPS :: Int -> PackedString -> PackedString
 dropPS (I# n) ps
-  | n ==# len = ps
+  | n ==# len = nilPS
   | otherwise = substrPS# ps n  (lengthPS# ps -# 1#)
   where
     len = lengthPS# ps