Revision df726590 src/AutoConf.hs.in
| b/src/AutoConf.hs.in | ||
|---|---|---|
| 127 | 127 |
drbdNoMetaFlush :: Bool |
| 128 | 128 |
drbdNoMetaFlush = DRBD_NO_META_FLUSH |
| 129 | 129 |
|
| 130 |
data SyslogUsageT |
|
| 131 |
= SyslogNo |
|
| 132 |
| SyslogYes |
|
| 133 |
| SyslogOnly |
|
| 134 |
deriving (Bounded, Enum) |
|
| 135 |
|
|
| 136 |
instance Read SyslogUsageT where |
|
| 137 |
readsPrec _ r = do |
|
| 138 |
(s, r') <- lex r |
|
| 139 |
case s of |
|
| 140 |
"no" -> [(SyslogNo, r')] |
|
| 141 |
"yes" -> [(SyslogYes, r')] |
|
| 142 |
"only" -> [(SyslogOnly, r')] |
|
| 143 |
_ -> [] |
|
| 144 |
|
|
| 145 |
instance Show SyslogUsageT where |
|
| 146 |
show SyslogNo = "no" |
|
| 147 |
show SyslogYes = "yes" |
|
| 148 |
show SyslogOnly = "only" |
|
| 149 |
|
|
| 150 |
syslogUsage :: SyslogUsageT |
|
| 151 |
syslogUsage = read "SYSLOG_USAGE" :: SyslogUsageT |
|
| 130 |
syslogUsage :: String |
|
| 131 |
syslogUsage = "SYSLOG_USAGE" |
|
| 152 | 132 |
|
| 153 | 133 |
daemonsGroup :: String |
| 154 | 134 |
daemonsGroup = "DAEMONS_GROUP" |
Also available in: Unified diff