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

showDateSpan: remove redundant local definition of showDate

Browse Source
This commit is contained in:
Peter Simons 2014-03-22 11:31:59 +01:00
parent a56231751f
commit 6319ecd0b7
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-lib/Hledger/Data/Dates.hs
View File

@ -82,12 +82,10 @@ showDate = formatTime defaultTimeLocale "%0C%y/%m/%d"
showDateSpan (DateSpan from to) = showDateSpan (DateSpan from to) =
concat concat
[maybe "" showdate from [maybe "" showDate from
,"-" ,"-"
,maybe "" (showdate . prevday) to ,maybe "" (showDate . prevday) to
] ]
where
showdate = formatTime defaultTimeLocale "%C%y/%m/%d"
-- | Get the current local date. -- | Get the current local date.
getCurrentDay :: IO Day getCurrentDay :: IO Day