@@ -519,8 +519,8 @@ data Container = Container
519 } deriving (Show, Eq)
519 } deriving (Show, Eq)
521instance FromJSON Container where
521instance FromJSON Container where
522− parseJSON (JSON.Object v) =
522+ parseJSON o@(JSON.Object v) =
523− Container <$> (v .: "Id")
523+ Container <$> (parseJSON o)
524 <*> (v .: "Names")
524 <*> (v .: "Names")
525 <*> (v .: "Image")
525 <*> (v .: "Image")
526 <*> (v .: "ImageID")
526 <*> (v .: "ImageID")