Create Statically Linked Haskell Binaries

.gitignore

*.hi
*.o
*.sw[op]
/.shake
/.stack-work
/dist
/output

Build.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards   #-}

import Turtle
import Prelude hiding (FilePath)

data Options = Options
    { repo :: Text
    , file :: FilePath
    }

parser :: Parser Options
parser = Options
    <$> (optText "repo" 'r' "The docker repo name" <|> pure "nilcons/ghc-musl")
    <*> argPath  "file" "The source file path"

compile :: FilePath -> Text -> IO ExitCode
compile inFile repo = do
    let inDir = directory inFile
    shell (cmd inDir inDir repo inFile) empty
  where
    cmd = format ("docker run --volume "%fp%":"%fp%" --rm "%s%" ghc -O2 -threaded -optl-static -optl-s "%fp)

compress :: FilePath -> IO ExitCode
compress outFile = shell (cmd outFile) empty
  where
    cmd = format ("upx --best --ultra-brute --lzma -- "%fp)

main :: IO ()
main = do
    -- Parse command-line options
    Options{..} <- options "Static Haskell Binary Creation" parser

    -- Get the full input directory
    inFile <- realpath file

    -- Compile and compress the static binaries
    status <- compile inFile repo .&&. compress (dropExtension inFile)
    case status of
        ExitSuccess     -> return ()
        ExitFailure msg -> die ("compilation failure" <> repr msg)

minimal-docker-image.cabal

name:          minimal-docker-image
version:       0.0.0
cabal-version: >= 1.2

executable Build
    ghc-options:      -Wall
                      -Werror
                      -fwarn-incomplete-record-updates
                      -fwarn-tabs
                      -fwarn-monomorphism-restriction
                      -fwarn-unused-do-bind
                      -fwarn-implicit-prelude
    default-language: Haskell2010
    main-is:          Build.hs
    build-depends:    base   >= 4     && < 5,
                      turtle >= 1.2.0 && < 2

stack.yaml

resolver: nightly-2015-07-12