drop unusual "d" suffix when showing a day period

This commit is contained in:
Simon Michael 2016-08-11 11:19:47 -07:00
parent 1d6ca47536
commit c1ddbfc08a
2 changed files with 5 additions and 5 deletions

View File

@ -122,7 +122,7 @@ isLastDayOfMonth y m d =
-- --
-- >>> showPeriod (WeekPeriod (fromGregorian 2016 7 25)) -- >>> showPeriod (WeekPeriod (fromGregorian 2016 7 25))
-- "2016/07/25w30" -- "2016/07/25w30"
showPeriod (DayPeriod b) = formatTime defaultTimeLocale "%0C%y/%m/%dd" b -- DATEd showPeriod (DayPeriod b) = formatTime defaultTimeLocale "%0C%y/%m/%d" b -- DATE
showPeriod (WeekPeriod b) = formatTime defaultTimeLocale "%0C%y/%m/%dw%V" b -- STARTDATEwYEARWEEK showPeriod (WeekPeriod b) = formatTime defaultTimeLocale "%0C%y/%m/%dw%V" b -- STARTDATEwYEARWEEK
showPeriod (MonthPeriod y m) = printf "%04d/%02d" y m -- YYYY/MM showPeriod (MonthPeriod y m) = printf "%04d/%02d" y m -- YYYY/MM
showPeriod (QuarterPeriod y q) = printf "%04dq%d" y q -- YYYYqN showPeriod (QuarterPeriod y q) = printf "%04dq%d" y q -- YYYYqN

View File

@ -43,8 +43,8 @@ hledger -f - register aa --depth 1 --daily
a:aa 1 a:aa 1
b:bb:bbb b:bb:bbb
>>> >>>
2010/01/01d a 2 2 2010/01/01 a 2 2
2010/01/02d a 1 3 2010/01/02 a 1 3
>>>=0 >>>=0
# 4. with --cleared # 4. with --cleared
@ -75,7 +75,7 @@ hledger -f - register --depth 0 --daily a b
b:bb 2 b:bb 2
c:cc c:cc
>>> >>>
2010/01/01d ... 6 6 2010/01/01 ... 6 6
2010/01/02d ... 3 9 2010/01/02 ... 3 9
>>>=0 >>>=0