1 files changed, 2 insertions, 1 deletions

diff --git a/src/Network/StreamServer.hs b/src/Network/StreamServer.hs
index 6a36ed00..01680b77 100644
--- a/src/Network/StreamServer.hs
+++ b/src/Network/StreamServer.hs
@@ -57,6 +57,7 @@ import System.IO (Handle)
 import Control.Concurrent.MVar (newMVar)
 
 import Network.SocketLike
+import DPut
 
 data ServerHandle = ServerHandle Socket (Weak ThreadId)
 
@@ -89,7 +90,7 @@ bshow e = show e
 -- | Send a string to stderr.  Not exported.  Default 'serverWarn' when
 -- 'withSession' is used to configure the server.
 warnStderr :: String -> IO ()
-warnStderr str = hPutStrLn stderr str >> hFlush stderr
+warnStderr str = dput XMisc str >> hFlush stderr
 
 data ServerConfig = ServerConfig
     { serverWarn    :: String -> IO ()