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