From e483faf7f0cc69d385c7b74c6ea91c090823235c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jakob=20Sch=C3=B6ttl?= <jschoett@gmail.com>
Date: Sat, 29 Jun 2019 22:40:18 +0200
Subject: [PATCH] Bugfix for #1011: begin/end date options

---
 hledger-lib/Hledger/Reports/ReportOptions.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/hledger-lib/Hledger/Reports/ReportOptions.hs b/hledger-lib/Hledger/Reports/ReportOptions.hs
index 2c5ddff12..5d804568c 100644
--- a/hledger-lib/Hledger/Reports/ReportOptions.hs
+++ b/hledger-lib/Hledger/Reports/ReportOptions.hs
@@ -232,19 +232,19 @@ balancetypeopt rawopts =
 -- -p/--period options, using the given date to interpret relative date expressions.
 periodFromRawOpts :: Day -> RawOpts -> Period
 periodFromRawOpts d rawopts =
-  case (mearliestb, mlateste) of
+  case (mlastb, mlaste) of
     (Nothing, Nothing) -> PeriodAll
     (Just b, Nothing)  -> PeriodFrom b
     (Nothing, Just e)  -> PeriodTo e
     (Just b, Just e)   -> simplifyPeriod $
                           PeriodBetween b e
   where
-    mearliestb = case beginDatesFromRawOpts d rawopts of
+    mlastb = case beginDatesFromRawOpts d rawopts of
                    [] -> Nothing
-                   bs -> Just $ minimum bs
-    mlateste   = case endDatesFromRawOpts d rawopts of
+                   bs -> Just $ last bs
+    mlaste = case endDatesFromRawOpts d rawopts of
                    [] -> Nothing
-                   es -> Just $ maximum es
+                   es -> Just $ last es
 
 -- Get all begin dates specified by -b/--begin or -p/--period options, in order,
 -- using the given date to interpret relative date expressions.