showDateSpan: remove redundant local definition of showDate

2014-03-22 11:31:59 +01:00 · 2014-03-22 11:31:59 +01:00 · 6319ecd0b7
commit 6319ecd0b7
parent a56231751f
1 changed files with 2 additions and 4 deletions
--- 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