Revision 1c31b263 src/Ganeti/Monitoring/Server.hs

b/src/Ganeti/Monitoring/Server.hs
117 117 
-- | Prepare function for monitoring agent.
118 118 
prepMain :: PrepFn CheckResult PrepResult
119 119 
prepMain opts _ = do
120 
  mAccessLog <- daemonsExtraLogFile GanetiMond AccessLog
121 
  mErrorLog <- daemonsExtraLogFile GanetiMond ErrorLog
122 
  case (mAccessLog, mErrorLog) of
123 
    (Just accessLog, Just errorLog) ->
124 
      return $
125 
        setPort
126 
          (maybe C.defaultMondPort fromIntegral (optPort opts))
127 
          (defaultHttpConf accessLog errorLog)
128 
    _ -> fail "Failed to retrieve extra log filepaths for the monitoring daemon"
120 
  accessLog <- daemonsExtraLogFile GanetiMond AccessLog
121 
  errorLog <- daemonsExtraLogFile GanetiMond ErrorLog
122 
  return $
123 
    setPort
124 
      (maybe C.defaultMondPort fromIntegral (optPort opts))
125 
      (defaultHttpConf accessLog errorLog)
129 126 

  		





  130
  127
  
    
-- * Query answers


  		





  131
  128
  
    

  		












Also available in:
  Unified diff