Revision e0007cf1 src/Ganeti/HsConstants.hs

b/src/Ganeti/HsConstants.hs
384 384
  Map.fromList
385 385
  [ (Runtime.daemonName d, Runtime.daemonLogBase d) | d <- [minBound..] ]
386 386

  
387
daemonsExtraLogbase :: Map String (Map String String)
388
daemonsExtraLogbase =
389
  Map.fromList $
390
  map (Runtime.daemonName *** id)
391
  [ (GanetiMond, Map.fromList
392
                 [ ("access", Runtime.daemonsExtraLogbase GanetiMond AccessLog)
393
                 , ("error", Runtime.daemonsExtraLogbase GanetiMond ErrorLog)
394
                 ])
395
  ]
396

  
387 397
extraLogreasonAccess :: String
388 398
extraLogreasonAccess = Runtime.daemonsExtraLogbase GanetiMond AccessLog
389 399

  

Also available in: Unified diff