Re: [PATCH master 4/8] Flip dependency between Haskell types and constants

[Jose A. Lopes]

Interdiff

> > -daemonsExtraLogbase _ _ = Nothing
> > +daemonsExtraLogbase :: GanetiDaemon -> ExtraLogReason -> String
> > +daemonsExtraLogbase daemon AccessLog = daemonLogBase daemon ++ "access"
> > +daemonsExtraLogbase daemon ErrorLog = daemonLogBase daemon ++ "error"
> >
> >
> The two strings should be "-access" and "-error", to stay compatible with
> their current definition in the python constants.

@@ -125,14 +126,9 @@ daemonGroup (ExtraGroup  AdminGroup)    = 
AutoConf.adminGroup
 
 data ExtraLogReason = AccessLog | ErrorLog
 
-daemonsExtraLogbase :: GanetiDaemon -> ExtraLogReason -> Maybe String
-daemonsExtraLogbase GanetiMond AccessLog =
-  Just C.daemonsExtraLogbaseGanetiMondAccess
-
-daemonsExtraLogbase GanetiMond ErrorLog =
-  Just C.daemonsExtraLogbaseGanetiMondError
-
-daemonsExtraLogbase _ _ = Nothing
+daemonsExtraLogbase :: GanetiDaemon -> ExtraLogReason -> String
+daemonsExtraLogbase daemon AccessLog = daemonLogBase daemon ++ "-access"
+daemonsExtraLogbase daemon ErrorLog = daemonLogBase daemon ++ "-error"

Thanks,
Jose