Revision 3a3c1eb4 Ganeti/Luxi.hs

b/Ganeti/Luxi.hs
114 114 
          sbytes <- withTimeout queryTimeout
115 115 
                    "sending luxi message" $
116 116 
                    S.send (socket s) obuf
117 
          (if sbytes == length obuf
118 
           then return ()
119 
           else _send (drop sbytes obuf))
117 
          unless (sbytes == length obuf) $ _send (drop sbytes obuf)
120 118 
    in _send (buf ++ [eOM])
121 119 

  		





  122
  120
  
    
-- | Waits for a message over a luxi transport.


  		












Also available in:
  Unified diff