Fix partial pattern match in test
https://gitlab.haskell.org/ghc/ghc/wikis/migration/8.6#monadfaildesugaring-by-default
commitbc6566094716c54c074f64288b79dfde5df52167
authorBruno Bieth <biethb@gmail.com>
dateMon 20 May 2019, 11:50 (7 years ago)
parent54d92ed
tests/tests.hs+1−1
@@ -76,7 +76,7 @@ testFindImage =
7676
7777testDeleteImage :: IO ()
7878testDeleteImage = runDocker $ do
79− (Just img) <- findTestImage
79+ img <- fmap fromJust findTestImage
8080 result <- deleteImage defaultImageDeleteOpts (imageId img)
8181 lift $ assert $ isRight result
8282 maybeTestImageAfter <- findTestImage