hercules-ci/arion
1
1
Fork 0
mirror of https://github.com/hercules-ci/arion.git synced 2024-11-23 09:38:12 +03:00
Code Issues Projects Releases Wiki Activity

haskell: Resolve lines ambiguity

Browse Source
This commit is contained in:
Robert Hensing 2020-03-20 22:19:23 +01:00
parent 313bf21228
commit eeed0577be
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/haskell/lib/Arion/Images.hs
View File

@ -11,10 +11,10 @@ import Protolude hiding (to)
import qualified Data.Aeson as Aeson import qualified Data.Aeson as Aeson
import Arion.Aeson (decodeFile) import Arion.Aeson (decodeFile)
import qualified System.Process as Process import qualified System.Process as Process
import qualified Data.Text as T
import Control.Lens import Control.Lens
import Data.Aeson.Lens import Data.Aeson.Lens
import Data.String
import System.IO (withFile, IOMode(ReadMode)) import System.IO (withFile, IOMode(ReadMode))
@ -57,4 +57,4 @@ loadImage imgPath = withFile (imgPath) ReadMode $ \fileHandle -> do
dockerImages :: IO [TaggedImage] dockerImages :: IO [TaggedImage]
dockerImages = do dockerImages = 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 . lines) <$> Process.readCreateProcess procSpec "" (map toS . T.lines . toS) <$> Process.readCreateProcess procSpec ""