From 6319ecd0b7b735cc19717a9d866ac1f21204b83a Mon Sep 17 00:00:00 2001 From: Peter Simons Date: Sat, 22 Mar 2014 11:31:59 +0100 Subject: [PATCH] showDateSpan: remove redundant local definition of showDate --- hledger-lib/Hledger/Data/Dates.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/hledger-lib/Hledger/Data/Dates.hs b/hledger-lib/Hledger/Data/Dates.hs index ca3586375..5c8d46076 100644 --- a/hledger-lib/Hledger/Data/Dates.hs +++ b/hledger-lib/Hledger/Data/Dates.hs @@ -82,12 +82,10 @@ showDate = formatTime defaultTimeLocale "%0C%y/%m/%d" showDateSpan (DateSpan from to) = 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. getCurrentDay :: IO Day