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

[ghc-hetmet.git] / ghc / lib / misc / PackedString.lhs

diff --git a/ghc/lib/misc/PackedString.lhs b/ghc/lib/misc/PackedString.lhs
index 4bb3520..752891a 100644 (file)
--- 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