slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

comment

Browse Source
This commit is contained in:
Simon Michael 2009-05-16 20:51:34 +00:00
parent d3dcd29957
commit 6ad88274a5
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
AddCommand.hs
View File

@ -159,6 +159,8 @@ appendToLedgerFile l s =
else appendFile f $ sep++s else appendFile f $ sep++s
where where
f = filepath $ rawledger l f = filepath $ rawledger l
-- we keep looking at the original raw text from when the ledger
-- was first read, but that's good enough for now
t = rawledgertext l t = rawledgertext l
sep | null $ strip t = "" sep | null $ strip t = ""
| otherwise = replicate (2 - min 2 (length lastnls)) '\n' | otherwise = replicate (2 - min 2 (length lastnls)) '\n'