Random GHC wrapper script.

GhcWrapper.hs

import GHC.Paths
import System.Posix.Process
import System.Environment
import System.IO
import Data.List (intercalate)
import Control.Monad (when)

lg = appendFile "/tmp/fake.lg" . (++ "\n")

main = do
  args <- getArgs
  let make = "--make" `elem` args 
      args' = do
        arg <- args
        case arg of
          "--make" ->
            ["--frontend", "CabalWrapper",
             "-plugin-package", "cabal-wrapper"]
          _ -> return arg
  lg "=== new run"
  lg (intercalate ", " args)
  lg (intercalate ", " args')
  forkProcess (executeFile ghc False args Nothing) >>= getProcessStatus True False
  when make $ do
    lg "== my thing"
    executeFile ghc False (args' ++ ["-user-package-db"]) Nothing

{-
main = do
  args <- getArgs
  let interactive = "--interactive" `elem` args
      args' = do
        arg <- args
        case arg of
          "--interactive" ->
            ["--frontend", "CabalWrapper",
             "-plugin-package", "cabal-wrapper"]
          _ -> return arg
  executeFile ghc False (args' ++ if interactive then ["-user-package-db"] else []) Nothing
-}