Revision 6dc0cb59 src/Ganeti/Rpc.hs

b/src/Ganeti/Rpc.hs
162 162 
prepareUrl :: (RpcCall a) => Node -> a -> String
163 163 
prepareUrl node call =
164 164 
  let node_ip = nodePrimaryIp node
165 
      port = snd C.daemonsPortsGanetiNoded
165 
      port = C.defaultNodedPort
166 166 
      path_prefix = "https://" ++ node_ip ++ ":" ++ show port
167 167 
  in path_prefix ++ "/" ++ rpcCallName call
168 168 

  		












Also available in:
  Unified diff