Send answers strictly
[ganeti-github.git] / src / Ganeti / UDSServer.hs
index 8e27c5a..868c4e9 100644 (file)
@@ -77,9 +77,7 @@ import Control.Monad.Trans.Control
 import Control.Exception (catch)
 import Control.Monad
 import qualified Data.ByteString as B
-import qualified Data.ByteString.Lazy as BL
 import qualified Data.ByteString.UTF8 as UTF8
-import qualified Data.ByteString.Lazy.UTF8 as UTF8L
 import Data.IORef
 import Data.List
 import Data.Word (Word8)
@@ -288,9 +286,9 @@ clientToFd client | rh == wh  = join (,) <$> handleToFd rh
 -- | Sends a message over a transport.
 sendMsg :: Client -> String -> IO ()
 sendMsg s buf = withTimeout (sendTmo $ clientConfig s) "sending a message" $ do
-  let encoded = UTF8L.fromString buf
+  let encoded = UTF8.fromString buf
       handle = wsocket s
-  BL.hPut handle encoded
+  B.hPut handle encoded
   B.hPut handle bEOM
   hFlush handle