uplime/lamb
uplime
/
lamb
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

use hPutStr instead of UTF8.hPutStr

This commit is contained in:
darkf 2013-11-04 00:18:02 -08:00
parent 7678f8efb2
commit 8e2cd18cbf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
interp.hs
View File

@ -111,7 +111,7 @@ _fputbytes (TupleV [StreamV h, StrV str]) = do
_fputstr (TupleV [StreamV h, StrV str]) = do _fputstr (TupleV [StreamV h, StrV str]) = do
(handles,_) <- get (handles,_) <- get
let handle = handles !! h let handle = handles !! h
io <- lift $ UTF8.hPutStr handle str >> hFlush handle io <- lift $ hPutStr handle str >> hFlush handle
return UnitV return UnitV
_fgetline (StreamV h) = do _fgetline (StreamV h) = do