From: sof <unknown>
Date: Tue, 11 Aug 1998 19:25:12 +0000 (+0000)
Subject: [project @ 1998-08-11 19:25:12 by sof]
X-Git-Tag: Approx_2487_patches~455
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=51406828bdcbbc5c34d39a7059706620390687bf;p=ghc-hetmet.git

[project @ 1998-08-11 19:25:12 by sof]
unpackNBytesPS glitchlet
---

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