Commit 5bea7b80 authored by Michael Hanus 's avatar Michael Hanus

Imports updated

parent 16522a52
......@@ -24,9 +24,11 @@ runPropertyTests withcolor withtime props = do
--- Prints the run time needed to execute a given IO action.
showRunTimeFor :: IO a -> IO a
showRunTimeFor action = do
t0 <- Profile.getProcessInfos >>= return . maybe 0 id . lookup Profile.RunTime
t0 <- Debug.Profile.getProcessInfos
>>= return . maybe 0 id . lookup Debug.Profile.RunTime
result <- action
t1 <- Profile.getProcessInfos >>= return . maybe 0 id . lookup Profile.RunTime
t1 <- Debug.Profile.getProcessInfos
>>= return . maybe 0 id . lookup Debug.Profile.RunTime
putStrLn $ "Run time: " ++ show (t1-t0) ++ " msec."
return result
......
......@@ -15,6 +15,7 @@
"flatcurry" : ">= 2.0.0",
"frontend-exec" : ">= 0.0.1",
"peano" : ">= 1.0.0",
"profiling" : ">= 1.0.0",
"rewriting" : ">= 2.0.0",
"setfunctions" : ">= 0.0.1",
"wl-pprint" : ">= 0.0.1"
......
......@@ -32,4 +32,5 @@ ccExecLoadPath =
where
isRequiredPackage dir =
any (`isInfixOf` dir)
["ansi-terminal", "easycheck", "random", "searchtree", "setfunctions"]
[ "ansi-terminal", "easycheck", "profiling", "random"
, "searchtree", "setfunctions" ]
......@@ -1364,7 +1364,7 @@ genMainTestModule opts mainmod orgtestmods = do
let mainFunction = genMainFunction opts mainmod testfuncs
imports = nub $ [ easyCheckModule, easyCheckExecModule
, searchTreeModule, generatorModule
, "List", "Char", "Maybe", "System", "Profile"
, "List", "Char", "Maybe", "System", "Debug.Profile"
, "System.Console.ANSI.Codes" ] ++
map (fst . fst) testtypes ++
map testModuleName testmods
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment