From bc6566094716c54c074f64288b79dfde5df52167 Mon Sep 17 00:00:00 2001
From: Bruno Bieth <biethb@gmail.com>
Date: Mon, 20 May 2019 11:50:06 +0200
Subject: [PATCH] Fix partial pattern match in test

https://gitlab.haskell.org/ghc/ghc/wikis/migration/8.6#monadfaildesugaring-by-default
---
 tests/tests.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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