Merge pull request #95 from hercules-ci/maintenance

Maintenance
This commit is contained in:
Robert Hensing 2020-03-20 22:37:39 +01:00 committed by GitHub
commit 4afa8694f6
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
4 changed files with 4 additions and 7 deletions

View file

@ -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

View file

@ -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 =

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 ""

View file

@ -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 )