Revision 3ad57194 htools/Ganeti/HTools/JSON.hs
b/htools/Ganeti/HTools/JSON.hs | ||
---|---|---|
2 | 2 |
|
3 | 3 |
{- |
4 | 4 |
|
5 |
Copyright (C) 2009, 2010, 2011 Google Inc. |
|
5 |
Copyright (C) 2009, 2010, 2011, 2012 Google Inc.
|
|
6 | 6 |
|
7 | 7 |
This program is free software; you can redistribute it and/or modify |
8 | 8 |
it under the terms of the GNU General Public License as published by |
... | ... | |
34 | 34 |
, asJSObject |
35 | 35 |
, asObjectList |
36 | 36 |
, tryFromObj |
37 |
, toArray |
|
37 | 38 |
) |
38 | 39 |
where |
39 | 40 |
|
... | ... | |
126 | 127 |
-> String -- ^ The desired key from the object |
127 | 128 |
-> Result a |
128 | 129 |
tryFromObj t o = annotateResult t . fromObj o |
130 |
|
|
131 |
-- | Ensure a given JSValue is actually a JSArray. |
|
132 |
toArray :: (Monad m) => J.JSValue -> m [J.JSValue] |
|
133 |
toArray (J.JSArray arr) = return arr |
|
134 |
toArray o = fail $ "Invalid input, expected array but got " ++ show o |
Also available in: Unified diff