@@ -76,7 +76,7 @@ testFindImage =
77testDeleteImage :: IO ()
77testDeleteImage :: IO ()
78testDeleteImage = runDocker $ do
78testDeleteImage = runDocker $ do
79− (Just img) <- findTestImage
79+ img <- fmap fromJust findTestImage
80 result <- deleteImage defaultImageDeleteOpts (imageId img)
80 result <- deleteImage defaultImageDeleteOpts (imageId img)
81 lift $ assert $ isRight result
81 lift $ assert $ isRight result
82 maybeTestImageAfter <- findTestImage
82 maybeTestImageAfter <- findTestImage