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
|
_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
|
||||||
|
|
Loading…
Reference in a new issue