haskell: Resolve lines ambiguity

This commit is contained in:
Robert Hensing 2020-03-20 22:19:23 +01:00
parent 313bf21228
commit eeed0577be

View file

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