language-dockerfile.dockerfile.hs

{-# LANGUAGE OverloadedStrings #-}
import           Data.Monoid
import           Language.Dockerfile
import           System.Process

main :: IO ()
main = do
    writeFile "./Dockerfile" (toDockerfileStr mainDockerfile)
    putStr =<< readFile "./Dockerfile"
    sha <- init <$> readCreateProcess (shell "git rev-parse --short HEAD") ""
    print sha
    print ("docker build --tag beijaflor-io/language-dockerfile:" <> sha <> " .")
    ph <- runCommand ("docker build --tag language-dockerfile:" <> sha <> " .")
    ec <- waitForProcess ph
    _ <- waitForProcess =<< runCommand ("docker tag language-dockerfile:" <> sha <> " language-dockerfile:latest")
    _ <- waitForProcess =<< runCommand "docker images | grep language-dockerfile"
    print ec

mainDockerfile = do
    from "haskell:8"
    maintainer "Pedro Tacla Yamada <tacla.yamada@gmail.com>"
    run "cabal update"
    run "cabal install language-dockerfile"