From: sof <unknown>
Date: Wed, 3 Sep 1997 23:51:06 +0000 (+0000)
Subject: [project @ 1997-09-03 23:51:06 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~45
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=fbf45eff4372ae40eefa2c2d2f45414c7f050847

[project @ 1997-09-03 23:51:06 by sof]
unpackCStringBA# arguments swapped
---

diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 0cbb3f8..92afb68 100644
--- a/ghc/compiler/utils/FastString.lhs
+++ b/ghc/compiler/utils/FastString.lhs
@@ -137,7 +137,7 @@ unpackFS :: FastString -> String
 #if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 205
 unpackFS (FastString _ l# ba#) = byteArrayToString (_ByteArray (0,I# l#) ba#)
 #else
-unpackFS (FastString _ l# ba#) = unpackCStringBA# l# ba#
+unpackFS (FastString _ l# ba#) = unpackCStringBA# ba# l#
 #endif
 unpackFS (CharStr addr len#) =
  unpack 0#