From 51406828bdcbbc5c34d39a7059706620390687bf Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 11 Aug 1998 19:25:12 +0000
Subject: [PATCH] [project @ 1998-08-11 19:25:12 by sof] unpackNBytesPS
 glitchlet

---
 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 4bb3520..752891a 100644
--- a/ghc/lib/misc/PackedString.lhs
+++ b/ghc/lib/misc/PackedString.lhs
@@ -374,7 +374,7 @@ unpackNBytesPS ps len@(I# l#)
       CPS a len# -> unpackPS (CPS a (min# len# l#))
  where
   min# x# y# 
-    | x# ># y#  = x#
+    | x# <# y#  = x#
     | otherwise = y#
 
 unpackPSIO :: PackedString -> IO String
-- 
1.7.10.4