@@ -52,13 +52,9 @@ testDockerVersion = runDocker $ do
5252testFindImage :: IO ()
5353testFindImage = runDocker $ do
5454 images <- listImages defaultListOpts >>= fromRight
55− let xs = filter (tagFilter imageFullName) images
55+ let xs = filter ((== [imageFullName]) . imageRepoTags) images
5656 lift $ assert $ length xs == 1
5757 where imageFullName = testImageName <> ":latest"
58− tagFilter :: Text -> Image -> Bool
59− tagFilter t i = case (imageRepoTags i) of
60− Nothing -> False
61− Just tags -> elem t tags
6258
6359testRunAndReadLog :: IO ()
6460testRunAndReadLog = runDocker $ do