From 88c361c81c7fd063a6672492525aa5074fdf9c34 Mon Sep 17 00:00:00 2001
From: Robert Hensing <robert@roberthensing.nl>
Date: Fri, 2 Oct 2020 10:20:41 +0200
Subject: [PATCH] Rename getDockerImages

---
 src/haskell/lib/Arion/Images.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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