diff --git a/tests/tests.hs b/tests/tests.hs
index 5927f68..a04c9b8 100644
--- a/tests/tests.hs
+++ b/tests/tests.hs
@@ -76,7 +76,7 @@ testFindImage =
 
 testDeleteImage :: IO ()
 testDeleteImage = runDocker $ do
-  (Just img) <- findTestImage
+  img <- fmap fromJust findTestImage
   result <- deleteImage defaultImageDeleteOpts (imageId img)
   lift $ assert $ isRight result
   maybeTestImageAfter <- findTestImage