From 8e2cd18cbfa86748987a1810e0dec10a652e5ad8 Mon Sep 17 00:00:00 2001
From: darkf <lw9k123@gmail.com>
Date: Mon, 4 Nov 2013 00:18:02 -0800
Subject: [PATCH] use hPutStr instead of UTF8.hPutStr

---
 interp.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/interp.hs b/interp.hs
index 4010c1f..be439ab 100644
--- a/interp.hs
+++ b/interp.hs
@@ -111,7 +111,7 @@ _fputbytes (TupleV [StreamV h, StrV str]) = do
 _fputstr (TupleV [StreamV h, StrV str]) = do
 	(handles,_) <- get
 	let handle = handles !! h
-	io <- lift $ UTF8.hPutStr handle str >> hFlush handle
+	io <- lift $ hPutStr handle str >> hFlush handle
 	return UnitV
 
 _fgetline (StreamV h) = do