Revision 13b17073 htools/Ganeti/Query/Language.hs
b/htools/Ganeti/Query/Language.hs | ||
---|---|---|
54 | 54 |
) where |
55 | 55 |
|
56 | 56 |
import Control.Applicative |
57 |
import Control.DeepSeq |
|
57 | 58 |
import Data.Foldable |
58 | 59 |
import Data.Traversable (Traversable, traverse, fmapDefault, foldMapDefault) |
59 | 60 |
import Data.Ratio (numerator, denominator) |
... | ... | |
79 | 80 |
]) |
80 | 81 |
$(makeJSONInstance ''ResultStatus) |
81 | 82 |
|
83 |
-- | No-op 'NFData' instance for 'ResultStatus', since it's a single |
|
84 |
-- constructor data-type. |
|
85 |
instance NFData ResultStatus |
|
86 |
|
|
82 | 87 |
-- | Check that ResultStatus is success or fail with descriptive |
83 | 88 |
-- message. |
84 | 89 |
checkRS :: (Monad m) => ResultStatus -> a -> m a |
... | ... | |
380 | 385 |
, rentryValue :: Maybe ResultValue -- ^ The (optional) result value |
381 | 386 |
} deriving (Show, Eq) |
382 | 387 |
|
388 |
instance NFData ResultEntry where |
|
389 |
rnf (ResultEntry rs rv) = rnf rs `seq` rnf rv |
|
390 |
|
|
383 | 391 |
instance JSON ResultEntry where |
384 | 392 |
showJSON (ResultEntry rs rv) = |
385 | 393 |
showJSON (showJSON rs, maybe JSNull showJSON rv) |
Also available in: Unified diff