Revision 835050f3 src/Ganeti/Rpc.hs

b/src/Ganeti/Rpc.hs
80 80 
  ) where
81 81 

  		





  82
  82
  
    
import Control.Arrow (second)


  		





  
  83
  
    
import qualified Codec.Compression.Zlib as Zlib


  		





  
  84
  
    
import qualified Data.ByteString.Lazy.Char8 as BL


  		





  83
  85
  
    
import qualified Data.Map as Map


  		





  84
  86
  
    
import Data.Maybe (fromMaybe)


  		





  85
  87
  
    
import qualified Text.JSON as J


  		





  86
  88
  
    
import Text.JSON.Pretty (pp_value)


  		





  
  89
  
    
import qualified Data.ByteString.Base64.Lazy as Base64


  		





  87
  90
  
    

  		





  88
  91
  
    
import Network.Curl hiding (content)


  		





  89
  92
  
    
import qualified Ganeti.Path as P


  		





  ......




  570
  573
  
    
  rpcCallAcceptOffline _ = False


  		





  571
  574
  
    
  rpcCallData _ call     = J.encode


  		





  572
  575
  
    
    ( rpcCallJobqueueUpdateFileName call


  		





  573
  
  
    
    , ( C.rpcEncodingNone


  		





  574
  
  
    
      , rpcCallJobqueueUpdateContent call


  		





  
  576
  
    
    , ( C.rpcEncodingZlibBase64


  		





  
  577
  
    
      , BL.unpack . Base64.encode . Zlib.compress . BL.pack


  		





  
  578
  
    
          $ rpcCallJobqueueUpdateContent call


  		





  575
  579
  
    
      )


  		





  576
  580
  
    
    )


  		





  577
  581
  
    

  		












Also available in:
  Unified diff