Revision a5ec6d88
b/src/Ganeti/DataCollectors/Types.hs | ||
---|---|---|
36 | 36 |
, buildReport |
37 | 37 |
) where |
38 | 38 |
|
39 |
import Data.Char |
|
39 | 40 |
import Text.JSON |
40 | 41 |
|
41 | 42 |
import Ganeti.Constants as C |
... | ... | |
48 | 49 |
|
49 | 50 |
-- | The JSON instance for DCCategory. |
50 | 51 |
instance JSON DCCategory where |
51 |
showJSON = showJSON . show |
|
52 |
showJSON = showJSON . map toLower . drop 2 . show
|
|
52 | 53 |
readJSON = |
53 | 54 |
error "JSON read instance not implemented for type DCCategory" |
54 | 55 |
|
Also available in: Unified diff