diff options
Diffstat (limited to 'haskell/src/Data')
| -rw-r--r-- | haskell/src/Data/MessagePack.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/haskell/src/Data/MessagePack.hs b/haskell/src/Data/MessagePack.hs index b53066b..7137589 100644 --- a/haskell/src/Data/MessagePack.hs +++ b/haskell/src/Data/MessagePack.hs @@ -25,6 +25,7 @@ module Data.MessagePack( -- * Pack functions packToString, packToHandle, + packToHandle', packToFile, -- * Unpack functions @@ -83,6 +84,10 @@ packToString = runPut packToHandle :: Handle -> Put -> IO () packToHandle h = L.hPutStr h . packToString +-- | Pack to Handle and Flush Handle +packToHandle' :: Handle -> Put -> IO () +packToHandle' h p = packToHandle h p >> hFlush h + -- | Pack to File packToFile :: FilePath -> Put -> IO () packToFile path = L.writeFile path . packToString |