commit
4afa8694f6
4 changed files with 4 additions and 7 deletions
|
@ -25,7 +25,7 @@ data-files: nix/*.nix
|
||||||
data-dir: src
|
data-dir: src
|
||||||
|
|
||||||
common common
|
common common
|
||||||
build-depends: base >=4.12.0.0
|
build-depends: base >=4.12.0.0 && <4.14
|
||||||
, aeson
|
, aeson
|
||||||
, aeson-pretty
|
, aeson-pretty
|
||||||
, async
|
, async
|
||||||
|
@ -36,7 +36,7 @@ common common
|
||||||
, process
|
, process
|
||||||
, temporary
|
, temporary
|
||||||
, text
|
, text
|
||||||
, protolude
|
, protolude >= 0.2
|
||||||
, unix
|
, unix
|
||||||
ghc-options: -Wall
|
ghc-options: -Wall
|
||||||
|
|
||||||
|
|
|
@ -17,8 +17,6 @@ import Control.Monad.Fail
|
||||||
import qualified Data.Text as T
|
import qualified Data.Text as T
|
||||||
import qualified Data.Text.IO as T
|
import qualified Data.Text.IO as T
|
||||||
|
|
||||||
import Data.List.NonEmpty (NonEmpty(..))
|
|
||||||
|
|
||||||
import System.Posix.User (getRealUserID)
|
import System.Posix.User (getRealUserID)
|
||||||
|
|
||||||
data CommonOptions =
|
data CommonOptions =
|
||||||
|
|
|
@ -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 ""
|
||||||
|
|
|
@ -22,7 +22,6 @@ import Paths_arion_compose
|
||||||
import qualified Data.Text.IO as T
|
import qualified Data.Text.IO as T
|
||||||
|
|
||||||
import qualified Data.List.NonEmpty as NE
|
import qualified Data.List.NonEmpty as NE
|
||||||
import Data.List.NonEmpty ( NonEmpty(..) )
|
|
||||||
|
|
||||||
import Control.Arrow ( (>>>) )
|
import Control.Arrow ( (>>>) )
|
||||||
import System.IO.Temp ( withTempFile )
|
import System.IO.Temp ( withTempFile )
|
||||||
|
|
Loading…
Reference in a new issue