From 5ffba4e2eac0a76ffbe8d98b672fcc39201a591f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 11 Apr 2000 11:02:31 +0000
Subject: [PATCH] [project @ 2000-04-11 11:02:31 by simonmar] String isn't a
 valid _ccall_ argument type anymore.

---
 ghc/tests/codeGen/should_run/cg026.hs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ghc/tests/codeGen/should_run/cg026.hs b/ghc/tests/codeGen/should_run/cg026.hs
index c3edfa4..b537fbd 100644
--- a/ghc/tests/codeGen/should_run/cg026.hs
+++ b/ghc/tests/codeGen/should_run/cg026.hs
@@ -10,6 +10,7 @@ import MutableArray
 import ByteArray
 import Addr
 import Int( Num(fromInt) )
+import CString (packString)
 	
 import Ratio
 import Array
@@ -31,7 +32,7 @@ test_chars
   = let str = reverse "Now is the time for all good men to come to...\n"
     in
     unsafePerformIO (
-	_ccall_ fprintf (``stdout''::Addr) "%d %s\n" (93::Int) str >>
+	_ccall_ fprintf (``stdout''::Addr) (packString "%d %s\n") (93::Int) (packString str) >>
 	_ccall_ fflush  (``stdout''::Addr)  >>
 	return ""
 	)
-- 
1.7.10.4