Better debugging information when failing to parse status
commit6f060289c07dcd39a33ddcce375f204ad93aa889
authorDaniel Schoepe <daniel@schoepe.org>
dateFri 22 Dec 2017, 16:52 (9 years ago)
parent14ddb2f
src/Docker/Client/Types.hs+1−1
@@ -549,7 +549,7 @@ instance FromJSON Status where
549549 parseJSON (JSON.String "paused") = return Paused
550550 parseJSON (JSON.String "exited") = return Exited
551551 parseJSON (JSON.String "dead") = return Dead
552− parseJSON _ = fail "Unknown Status"
552+ parseJSON s = fail $ "Unknown Status: " ++ show s
553553
554554-- | Alias for representing a RepoDigest. We could newtype this and add
555555-- some validation.