webidl-0.1: Setup.hs

module Main (main) where

import Control.Monad
import System.Process
import System.Exit
import Distribution.Simple
import Distribution.Simple.Setup
import Distribution.PackageDescription

main :: IO ()
main = defaultMainWithHooks simpleUserHooks {
  preConf = buildLexer
}

buildLexer :: Args -> ConfigFlags -> IO HookedBuildInfo

buildLexer args cflgs = do
  let cmd = "cd cbits; make lexer-pkg"
  runCommand cmd >>= waitForProcess
  return emptyHookedBuildInfo