Documentation

type EDockerfileM = Free EInstruction #

type EDockerfileTM = FreeT EInstruction #

type EInstructionM = Free EInstruction #

type EInstructionTM = FreeT EInstruction #

embed :: forall m. MonadFree EInstruction m => [InstructionPos] -> m () #

onBuildRaw :: forall m. MonadFree EInstruction m => Instruction -> m () #

healthcheck :: forall m. MonadFree EInstruction m => Check -> m () #

comment :: forall m. MonadFree EInstruction m => String -> m () #

arg :: forall m. MonadFree EInstruction m => String -> Maybe String -> m () #

env :: forall m. MonadFree EInstruction m => Pairs -> m () #

maintainer :: forall m. MonadFree EInstruction m => String -> m () #

entrypointArgs :: forall m. MonadFree EInstruction m => Arguments -> m () #

volume :: forall m. MonadFree EInstruction m => String -> m () #

expose :: forall m. MonadFree EInstruction m => Ports -> m () #

workdir :: forall m. MonadFree EInstruction m => Directory -> m () #

shell :: forall m. MonadFree EInstruction m => Arguments -> m () #

cmdArgs :: forall m. MonadFree EInstruction m => Arguments -> m () #

runArgs :: forall m. MonadFree EInstruction m => Arguments -> m () #

copyArgs :: forall m. MonadFree EInstruction m => NonEmpty SourcePath -> TargetPath -> Chown -> CopySource -> m () #

stopSignal :: forall m. MonadFree EInstruction m => String -> m () #

label :: forall m. MonadFree EInstruction m => Pairs -> m () #

user :: forall m. MonadFree EInstruction m => String -> m () #

addArgs :: forall m. MonadFree EInstruction m => NonEmpty SourcePath -> TargetPath -> Chown -> m () #

from :: forall m. MonadFree EInstruction m => EBaseImage -> m () #

runDockerWriter :: MonadWriter [Instruction] m => EDockerfileM a -> m a #

runDockerWriterIO :: (Monad m, MonadTrans t, Monad (t m), MonadWriter [Instruction] (t m), MonadIO (t m)) => EDockerfileTM m a -> t m a #

runDef :: MonadWriter [t] m => (t1 -> t) -> t1 -> m b -> m b #

runDef2 :: MonadWriter [t] m => (t1 -> t2 -> t) -> t1 -> t2 -> m b -> m b #

runD :: MonadWriter [Instruction] m => EInstruction (m b) -> m b #

instructionPos :: Instruction -> InstructionPos #

toDockerfile :: EDockerfileM a -> Dockerfile #

toDockerfileStr :: EDockerfileM a -> String #

import           Language.Docker

main :: IO ()
main = writeFile "something.dockerfile" $ toDockerfileStr $ do
    from (tagged "fpco/stack-build" "lts-6.9")
    add ["."] "applanguage-docker"
    workdir "applanguage-docker"
    run (words "stack build --test --only-dependencies")
    cmd (words "stack test")

untagged :: String -> EBaseImage #

tagged :: String -> String -> EBaseImage #

digested :: String -> ByteString -> EBaseImage #

aliased :: EBaseImage -> String -> EBaseImage #

ports :: [Port] -> Ports #

tcpPort :: Integer -> Port #

udpPort :: Integer -> Port #

variablePort :: String -> Port #

portRange :: Integer -> Integer -> Port #

run :: MonadFree EInstruction m => String -> m () #

entrypoint :: MonadFree EInstruction m => String -> m () #

cmd :: MonadFree EInstruction m => String -> m () #

copy :: MonadFree EInstruction m => NonEmpty SourcePath -> TargetPath -> m () #

add :: MonadFree EInstruction m => NonEmpty SourcePath -> TargetPath -> m () #

check :: String -> Check #

interval :: Check -> Integer -> Check #

timeout :: Check -> Integer -> Check #

startPeriod :: Check -> Integer -> Check #

retries :: Check -> Integer -> Check #

noCheck :: Check #

onBuild :: MonadFree EInstruction m => EDockerfileM a -> m () #

toDockerfile $ do
    from "node"
    run "apt-get update"
    onBuild $ do
        run "echo more-stuff"
        run "echo here"

toDockerfileIO :: MonadIO m => EDockerfileTM m t -> m Dockerfile #

toDockerfileStrIO :: MonadIO m => EDockerfileTM m t -> m String #

runDockerfileIO :: MonadIO m => EDockerfileTM m t -> m (t, Dockerfile) #

runDockerfileStrIO :: MonadIO m => EDockerfileTM m t -> m (t, String) #