--
-- |
-- Module      : Setup
-- Author      : Sean Seefried (http://www.cse.unsw.edu.au/~sseefried)
-- Copyright   : (c) 2005
-- License     : BSD3
-- Created     :  3 Jun 2005
--
--
module Main
where




import Distribution.Simple
import System
import System.Exit
import Distribution.PackageDescription
import Distribution.Simple.LocalBuildInfo
import Distribution.Simple.Setup

main :: IO ()
main = defaultMainWithHooks (autoconfUserHooks { postInst = panicPostInst })

panicPostInst :: Args -> InstallFlags -> PackageDescription -> LocalBuildInfo -> IO ()
panicPostInst _ _ _ _ = do
  -- must copy src/PanicConf.hs to install directory
  -- we run a shell script to do this
  system("bin/install-PanicConf")
  return ()