diff --git a/haskell/src/Data/MessagePack.hs b/haskell/src/Data/MessagePack.hs
index b53066b1..7137589f 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