Revision 9158a1dd src/Ganeti/Types.hs

b/src/Ganeti/Types.hs
330 330
       ])
331 331
$(THH.makeJSONInstance ''AllocPolicy)
332 332

  
333
-- | The Instance real state type. FIXME: this could be improved to
334
-- just wrap a /NormalState AdminStatus | ErrorState ErrorCondition/.
333
-- | The Instance real state type.
335 334
$(THH.declareLADT ''String "InstanceStatus"
336 335
       [ ("StatusDown",    "ADMIN_down")
337 336
       , ("StatusOffline", "ADMIN_offline")
......
340 339
       , ("NodeDown",      "ERROR_nodedown")
341 340
       , ("NodeOffline",   "ERROR_nodeoffline")
342 341
       , ("Running",       "running")
342
       , ("UserDown",      "USER_down")
343 343
       , ("WrongNode",     "ERROR_wrongnode")
344 344
       ])
345 345
$(THH.makeJSONInstance ''InstanceStatus)

Also available in: Unified diff