Revision 835050f3

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