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

register: fix bad layout with years < 1000

Browse Source
This commit is contained in:
Simon Michael 2010-02-16 21:59:53 +00:00
parent 5722c97a8a
commit 599398baa3
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
NOTES
View File

@ -368,7 +368,6 @@ unexpected end of input
expecting blank line or comment line expecting blank line or comment line
*** parsing: comment lines immediately after postings *** parsing: comment lines immediately after postings
*** parsing: accept all real-world ledger files *** parsing: accept all real-world ledger files
*** web: happstack ipv6 issue 6
** refactoring, code cleanup ** refactoring, code cleanup
*** pair programming *** pair programming
*** seek more modularity *** seek more modularity
@ -389,6 +388,8 @@ expecting blank line or comment line
*** inspiration *** inspiration
http://community.haskell.org/~ndm/downloads/paper-hoogle_overview-19_nov_2008.pdf -> Design Guidelines http://community.haskell.org/~ndm/downloads/paper-hoogle_overview-19_nov_2008.pdf -> Design Guidelines
** features ** features
*** parsing: safety check that effective date > actual (to catch eg 2009/12/30=1/4)
*** parsing: in effective date use actual date for defaults
*** web: filter patterns *** web: filter patterns
period doesn't work anywhere period doesn't work anywhere
account doesn't work on balance account doesn't work on balance
@ -413,6 +414,10 @@ can't filter by description
*** more reliable tidy layout from print *** more reliable tidy layout from print
*** parse more file formats - gnucash, qif, ofx, csv.. *** parse more file formats - gnucash, qif, ofx, csv..
*** i18n *** i18n
import Codec.Binary.UTF8.String (encodeString, decodeString)
import Data.ByteString.UTF8 (fromString, toString)
import Data.ByteString.Char8 (pack, unpack)
import Data.Text.Encoding (decodeUtf8)
*** speed *** speed
*** clear interfaces/surfaces/plugin architecture *** clear interfaces/surfaces/plugin architecture

2
hledger-lib/Ledger/Dates.hs
View File

@ -32,7 +32,7 @@ import Ledger.Utils
showDate :: Day -> String showDate :: Day -> String
showDate = formatTime defaultTimeLocale "%Y/%m/%d" showDate = formatTime defaultTimeLocale "%C%y/%m/%d"
getCurrentDay :: IO Day getCurrentDay :: IO Day
getCurrentDay = do getCurrentDay = do