Whitespace
This commit is contained in:
parent
8163053027
commit
63cda87e86
@ -131,7 +131,7 @@ readJournalFromCsv separator mrulesfile csvfile csvdata =
|
|||||||
then do
|
then do
|
||||||
dbg1IO "using conversion rules file" rulesfile
|
dbg1IO "using conversion rules file" rulesfile
|
||||||
readFilePortably rulesfile >>= expandIncludes (takeDirectory rulesfile)
|
readFilePortably rulesfile >>= expandIncludes (takeDirectory rulesfile)
|
||||||
else
|
else
|
||||||
return $ defaultRulesText rulesfile
|
return $ defaultRulesText rulesfile
|
||||||
rules <- either throwerr return $ parseAndValidateCsvRules rulesfile rulestext
|
rules <- either throwerr return $ parseAndValidateCsvRules rulesfile rulestext
|
||||||
dbg2IO "rules" rules
|
dbg2IO "rules" rules
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user