Commit 9a9c0fea authored by Bernd Brassel's avatar Bernd Brassel
Browse files

counting eval steps in new debugger

parent a987176f
......@@ -373,7 +373,7 @@ genDebugModule Opts{debugger=Just tool,mainModule=mod} fs line = do
map mkStrictName ((reqModuleName++" as S"):fs)
modCont = modImports ++
"\n\nmain = do\n\
\ run (eval S.strict_"++mainExpr++") \""++mod++"\""
\ run (S.strict_"++mainExpr++") \""++mod++"\""
--safeIO $ putStrLn modName
--safeIO $ putStrLn modCont
safeIO (writeKicsFile modName modCont)
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