import Development.Hake
import Development.Hake.FunSetIO
import System.Environment

ehsD = "ehs"
targets  = targets1 ++ targets2 ++ target3
targets1
  = [ "first", "first_debug", "second_inputFromStdin", "forth", "fifth", "sixth" ]
targets2
  = [ "apply", "doubleQuote", "parenthesis", "simple", "testHoge", "testHs.hs",
      "testLet" ]
target3
  = [ "testTxtCode", "testTop" ]

main = do
  ehs_ <- fmap (getVals "ehs") $ getArgs 
  let ehs = if null ehs_ then ehsD else head ehs_
  hake [

   dflt targets
   ,
   rule "" ".ehs" $ \_ (s:_) -> rawSystemE [ ehs, s ]
   ,
   rule "_debug" ".ehs" $ \_ (s:_) -> rawSystemE [ ehs, s, "debug=True" ]
   ,
   rule "_inputFromStdin" ".ehs" $ \_ (s:_) -> systemE $ "echo Yoshikuni Jujo | " ++ ehs ++ " " ++ s

   ]