@@ -511,7 +511,8 @@ data Container = Container
511 , containerImageId :: ImageID
511 , containerImageId :: ImageID
512 , containerCommand :: Text
512 , containerCommand :: Text
513 , containerCreatedAt :: Int
513 , containerCreatedAt :: Int
514+ , containerState :: Status -- The naming here is confusing due to inconsitiencies in the Docker API.
514− , containerStatus :: Status
515+ , containerStatus :: Maybe Text
515 , containerPorts :: [ContainerPortInfo]
516 , containerPorts :: [ContainerPortInfo]
516 , containerLabels :: [Label]
517 , containerLabels :: [Label]
517 , containerNetworks :: [Network]
518 , containerNetworks :: [Network]
@@ -527,6 +528,7 @@ instance FromJSON Container where
527 <*> (v .: "Command") -- Doesn't exist anymore
528 <*> (v .: "Command") -- Doesn't exist anymore
528 <*> (v .: "Created")
529 <*> (v .: "Created")
529 <*> (v .: "State")
530 <*> (v .: "State")
530 <*> (v .: "Ports")
532 <*> (v .: "Ports")
531 <*> (v .: "Labels")
533 <*> (v .: "Labels")
532 <*> (v .: "NetworkSettings" >>= parseNetworks)
534 <*> (v .: "NetworkSettings" >>= parseNetworks)