Revision 6bc39970 Ganeti/Jobs.hs

b/Ganeti/Jobs.hs
4 4

  
5 5
{-
6 6

  
7
Copyright (C) 2009 Google Inc.
7
Copyright (C) 2009, 2010 Google Inc.
8 8

  
9 9
This program is free software; you can redistribute it and/or modify
10 10
it under the terms of the GNU General Public License as published by
......
38 38
              | OP_STATUS_CANCELED
39 39
              | OP_STATUS_SUCCESS
40 40
              | OP_STATUS_ERROR
41
                deriving (Eq, Enum, Bounded, Show)
41
                deriving (Eq, Enum, Bounded, Show, Read)
42 42

  
43 43
instance JSON OpStatus where
44 44
    showJSON os = showJSON w
......
70 70
               | JOB_STATUS_CANCELING
71 71
               | JOB_STATUS_CANCELED
72 72
               | JOB_STATUS_ERROR
73
                 deriving (Eq, Enum, Ord, Bounded, Show)
73
                 deriving (Eq, Enum, Ord, Bounded, Show, Read)
74 74

  
75 75
instance JSON JobStatus where
76 76
    showJSON js = showJSON w

Also available in: Unified diff