ilyakooo0/docker-hs
1
0
Fork 0
mirror of https://github.com/ilyakooo0/docker-hs.git synced 2024-08-16 14:00:35 +03:00
Code Issues Projects Releases Wiki Activity

Fix partial pattern match in test

Browse Source 
https://gitlab.haskell.org/ghc/ghc/wikis/migration/8.6#monadfaildesugaring-by-default
This commit is contained in:
Bruno Bieth 2019-05-20 11:50:06 +02:00
parent 54d92edfc2
commit bc65660947
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/tests.hs
View File

@ -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