Commit a757c015 authored by Bernd Brassel's avatar Bernd Brassel
Browse files

a first debug!

parent 523c583c
......@@ -315,12 +315,11 @@ requestExpr state opts line = do
genDebugModule opts{mainModule=mainMod} (loadedFiles state) line
safeSystem (verbosity opts >= 5)
(ghcCall opts{make=True,ghcOpts=ghcOpts opts++" -O2 ",
(ghcCall opts{target=inKicsSubdir "debug",debug=False,
make=True,ghcOpts=ghcOpts opts++" -O2 ",
filename=inKicsSubdir debugModuleName})
{-safeSystem (verbosity opts >= 5)
(ghcCall opts{make=False,eval=True,
ghcOpts=ghcOpts opts++" -e expression ",
filename=mkStrictName reqModuleName})-}
safeSystem (verbosity opts >= 5)
(inKicsSubdir "debug")
interactive state opts
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