From b8ce2ae5250f78822fb8170789691918302dbf5f Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 18 Jun 1998 15:33:28 +0000
Subject: [PATCH] [project @ 1998-06-18 15:33:28 by sof] fixed dropPS typo

---
 ghc/lib/misc/PackedString.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/lib/misc/PackedString.lhs b/ghc/lib/misc/PackedString.lhs
index 59a552f2fc7c..2277bc1b9dae 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
-- 
GitLab