use hPutStr instead of UTF8.hPutStr
This commit is contained in:
parent
7678f8efb2
commit
8e2cd18cbf
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue