Revision e580e9f7
b/src/Ganeti/Monitoring/Server.hs | ||
---|---|---|
135 | 135 |
route |
136 | 136 |
[ ("all", allReports) |
137 | 137 |
, (":category/:collector", oneReport) |
138 |
] |
|
138 |
] <|> |
|
139 |
errorReport |
|
139 | 140 |
|
140 | 141 |
-- | Return the report of all the available collectors. |
141 | 142 |
allReports :: Snap () |
... | ... | |
154 | 155 |
catFromName "default" = BT.Ok Nothing |
155 | 156 |
catFromName _ = BT.Bad "No such category" |
156 | 157 |
|
158 |
errorReport :: Snap () |
|
159 |
errorReport = do |
|
160 |
modifyResponse $ setResponseStatus 404 "Not found" |
|
161 |
writeBS "Unable to produce a report for the requested resource" |
|
162 |
|
|
163 |
error404 :: Snap () |
|
164 |
error404 = do |
|
165 |
modifyResponse $ setResponseStatus 404 "Not found" |
|
166 |
writeBS "Resource not found" |
|
167 |
|
|
157 | 168 |
-- | Return the report of one collector |
158 | 169 |
oneReport :: Snap () |
159 | 170 |
oneReport = do |
... | ... | |
178 | 189 |
monitoringApi :: Snap () |
179 | 190 |
monitoringApi = |
180 | 191 |
ifTop versionQ <|> |
181 |
dir "1" version1Api |
|
192 |
dir "1" version1Api <|> |
|
193 |
error404 |
|
182 | 194 |
|
183 | 195 |
-- | Main function. |
184 | 196 |
main :: MainFn CheckResult PrepResult |
Also available in: Unified diff