remove ensureRulesFile debug trace

This commit is contained in:
Simon Michael 2012-05-30 08:36:34 +00:00
parent ec2f35ef07
commit 776ad2a098

View File

@ -123,7 +123,7 @@ readJournalFromCsv mrulesfile csvfile csvdata =
(_:_) -> throw $ userError $ "Parse error: at least one CSV record has less than two fields:\n"++(show $ head badrecords)
let rulesfile = fromMaybe (rulesFileFor csvfile) mrulesfile
created <- records `seq` (trace "ensureRulesFile" $ ensureRulesFileExists rulesfile)
created <- records `seq` ensureRulesFileExists rulesfile
if created
then hPrintf stderr "creating default conversion rules file %s, edit this file for better results\n" rulesfile
else hPrintf stderr "using conversion rules file %s\n" rulesfile