From: sof <unknown>
Date: Thu, 18 Jun 1998 15:33:28 +0000 (+0000)
Subject: [project @ 1998-06-18 15:33:28 by sof]
X-Git-Tag: Approx_2487_patches~569
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b8ce2ae5250f78822fb8170789691918302dbf5f;p=ghc-hetmet.git

[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
--- 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