one straggler

This commit is contained in:
Arya Irani 2020-04-07 21:23:06 -04:00
parent 35b40f0fda
commit b7b00c3de7

View File

@ -160,8 +160,7 @@ prepareTranscriptDir inFork mcodepath = do
pure()
when inFork $ FileCodebase.getCodebaseOrExit mcodepath >> do
origCodePath <- FileCodebase.getCodebaseDir mcodepath
let path = origCodePath
path <- FileCodebase.getCodebaseDir mcodepath
PT.putPrettyLn $ P.lines [
P.wrap "Transcript will be run on a copy of the codebase at: ", "",
P.indentN 2 (P.string path)