Revision 66ad857a htools/Ganeti/Luxi.hs

b/htools/Ganeti/Luxi.hs
287 287 
recvMsgExt :: Client -> IO RecvResult
288 288 
recvMsgExt s =
289 289 
  catch (liftM RecvOk (recvMsg s)) $ \e ->
290 
    if isEOFError e
291 
      then return RecvConnClosed
292 
      else return $ RecvError (show e)
290 
    return $ if isEOFError e
291 
               then RecvConnClosed
292 
               else RecvError (show e)
293 293 

  		





  294
  294
  
    
-- | Serialize a request to String.


  		





  295
  295
  
    
buildCall :: LuxiOp  -- ^ The method


  		












Also available in:
  Unified diff