ghoscht/arion
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rename getDockerImages

Browse source
This commit is contained in:
Robert Hensing 2020-10-02 10:20:41 +02:00
parent fa06bc80dc
commit 88c361c81c
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/haskell/lib/Arion/Images.hs
View file

@ -30,7 +30,7 @@ loadImages fp = do
v <- decodeFile fp v <- decodeFile fp
loaded <- dockerImages loaded <- getDockerImages
let let
images :: [Image] images :: [Image]
@ -52,7 +52,7 @@ loadImage imgPath = withFile (imgPath) ReadMode $ \fileHandle -> do
ExitFailure code -> panic $ "docker load (" <> show code <> ") failed for " <> toS imgPath ExitFailure code -> panic $ "docker load (" <> show code <> ") failed for " <> toS imgPath
dockerImages :: IO [TaggedImage] getDockerImages :: IO [TaggedImage]
dockerImages = do getDockerImages = do
let procSpec = Process.proc "docker" [ "images", "--filter", "dangling=false", "--format", "{{.Repository}}:{{.Tag}}" ] let procSpec = Process.proc "docker" [ "images", "--filter", "dangling=false", "--format", "{{.Repository}}:{{.Tag}}" ]
(map toS . T.lines . toS) <$> Process.readCreateProcess procSpec "" (map toS . T.lines . toS) <$> Process.readCreateProcess procSpec ""