diff options
| -rw-r--r-- | compiler/utils/StringBuffer.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/compiler/utils/StringBuffer.hs b/compiler/utils/StringBuffer.hs index 98b8c19340..91377cad17 100644 --- a/compiler/utils/StringBuffer.hs +++ b/compiler/utils/StringBuffer.hs @@ -19,6 +19,7 @@ module StringBuffer -- * Creation\/destruction hGetStringBuffer, hGetStringBufferBlock, + hPutStringBuffer, appendStringBuffers, stringToStringBuffer, @@ -121,6 +122,11 @@ hGetStringBufferBlock handle wanted then ioError (userError $ "short read of file: "++show(r,size,size_i,handle)) else newUTF8StringBuffer buf ptr size +hPutStringBuffer :: Handle -> StringBuffer -> IO () +hPutStringBuffer hdl (StringBuffer buf len cur) + = do withForeignPtr (plusForeignPtr buf cur) $ \ptr -> + hPutBuf hdl ptr len + -- | Skip the byte-order mark if there is one (see #1744 and #6016), -- and return the new position of the handle in bytes. -- |