Permalink
Browse files

Back to system instead of runCommand

  • Loading branch information...
1 parent 887c6dc commit c9628e9a0600e7c6105e83a28a57189ff209ae8a @dreixel committed Apr 7, 2010
Showing with 2 additions and 2 deletions.
  1. +2 −2 Setup.hs
View
@@ -2,14 +2,14 @@ module Main (main) where
import Distribution.Simple ( defaultMainWithHooks, simpleUserHooks
, UserHooks(runTests))
-import System.Process (runCommand, waitForProcess)
+import System.Cmd (system)
main :: IO ()
main = defaultMainWithHooks hooks
where hooks = simpleUserHooks { runTests = runTests' }
-- Runs the testsuite
-runTests' _ _ _ _ = runCommand cmd >>= waitForProcess >> return ()
+runTests' _ _ _ _ = system cmd >> return ()
where testdir = "tests"
testcmd = "runhaskell ./Main.hs"
cmd = "cd " ++ testdir ++ " && " ++ testcmd

0 comments on commit c9628e9

Please sign in to comment.