/ - Diff - snf-ganeti - Greek Research and Technology Network's projects

       , allLuxiCalls
       ) where
     import Control.Applicative (optional)
     import Control.Monad
     import qualified Data.ByteString.UTF8 as UTF8
     import Text.JSON (encodeStrict, decodeStrict)
-...
+        )
       , (luxiReqSetWatcherPause,
          [ optionalNullSerField
              $ simpleField "duration" [t| Double |] ]
              $ timeAsDoubleField "duration" ]
+        )
       ])
-...
                   [flag] <- fromJVal args
                   return $ SetDrainFlag flag
         ReqSetWatcherPause -> do
                   let duration = case args of
                                    JSArray [JSRational _ x]
                                      -> Just (fromRational x :: Double)
                                    _ -> Nothing
                   duration <- optional $ do
                     [x] <- fromJVal args
                     liftM unTimeAsDoubleJSON $ fromJVal x
                   return $ SetWatcherPause duration
     -- | Check that luxi responses contain the required keys and that the

                       . Config.getNode cfg . clusterMasterNode
                       $ configCluster cfg
       _ <- executeRpcCall (masters ++ mcs) $ RpcCallSetWatcherPause time
       return . Ok . maybe JSNull showJSON $ time
       return . Ok . maybe JSNull showJSON $ fmap TimeAsDoubleJSON time
     handleCall _ _ cfg (SetDrainFlag value) = do
       let mcs = Config.getMasterCandidates cfg

     -- | Set the watcher status
     $(buildObject "RpcCallSetWatcherPause" "rpcCallSetWatcherPause"
       [ simpleField "time" [t| Maybe Double |]
       [ optionalField $ timeAsDoubleField "time"
       ])
     instance RpcCall RpcCallSetWatcherPause where
-...
       rpcCallTimeout _       = rpcTimeoutToRaw Fast
       rpcCallAcceptOffline _ = False
       rpcCallData _ call     = J.encode
         [ maybe J.JSNull J.showJSON $ rpcCallSetWatcherPauseTime call ]
         [ maybe J.JSNull (J.showJSON . TimeAsDoubleJSON) $
                 rpcCallSetWatcherPauseTime call ]
     $(buildObject "RpcResultSetWatcherPause" "rpcResultSetWatcherPause" [])

Synnefo » snf-ganeti