git.iko.soy/docker-hs
on master help sign in
Better debugging information when failing to parse status
6f06028Daniel Schoepe
src/Docker/Client/Types.hs+1−1
compare with master
unifiedsplit
@@ -549,7 +549,7 @@ instance FromJSON Status where
549 parseJSON (JSON.String "paused") = return Paused
549 parseJSON (JSON.String "paused") = return Paused
550 parseJSON (JSON.String "exited") = return Exited
550 parseJSON (JSON.String "exited") = return Exited
551 parseJSON (JSON.String "dead") = return Dead
551 parseJSON (JSON.String "dead") = return Dead
552− parseJSON _ = fail "Unknown Status"
552+ parseJSON s = fail $ "Unknown Status: " ++ show s
553
553
554-- | Alias for representing a RepoDigest. We could newtype this and add
554-- | Alias for representing a RepoDigest. We could newtype this and add
555-- some validation.
555-- some validation.