@@ -560,8 +560,8 @@ data Image = DockerImage {
560 imageId :: ImageID
560 imageId :: ImageID
561 , imageCreated :: Integer
561 , imageCreated :: Integer
562 , imageParentId :: Maybe ImageID
562 , imageParentId :: Maybe ImageID
563− , imageRepoTags :: Maybe [Tag]
563+ , imageRepoTags :: [Tag]
564− , imageRepoDigests :: Maybe [Digest]
564+ , imageRepoDigests :: [Digest]
565 , imageSize :: Integer
565 , imageSize :: Integer
566 , imageVirtualSize :: Integer
566 , imageVirtualSize :: Integer
567 , imageLabels :: [Label]
567 , imageLabels :: [Label]
@@ -578,8 +578,8 @@ instance FromJSON Image where
578 imageId <- o .: "Id"
578 imageId <- o .: "Id"
579 imageCreated <- o .: "Created"
579 imageCreated <- o .: "Created"
580 imageParentId <- o .:? "ParentId"
580 imageParentId <- o .:? "ParentId"
581− imageRepoTags <- o .:? "RepoTags"
581+ imageRepoTags <- o .:? "RepoTags" .!= []
582− imageRepoDigests <- o .:? "RepoDigests"
582+ imageRepoDigests <- o .:? "RepoDigests" .!= []
583 imageSize <- o .: "Size"
583 imageSize <- o .: "Size"
584 imageVirtualSize <- o .: "VirtualSize"
584 imageVirtualSize <- o .: "VirtualSize"
585 imageLabels <- case HM.lookup "Labels" o of
585 imageLabels <- case HM.lookup "Labels" o of