From 10f8dc84a530499eb1c851273bbb874151a01b8a Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 8 Apr 2020 14:26:38 -0700
Subject: [PATCH] period expressions: allow "until", like Ledger (synonym for
 "to")

---
 hledger-lib/Hledger/Data/Dates.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-lib/Hledger/Data/Dates.hs b/hledger-lib/Hledger/Data/Dates.hs
index 9b44f52f2..eeb04e202 100644
--- a/hledger-lib/Hledger/Data/Dates.hs
+++ b/hledger-lib/Hledger/Data/Dates.hs
@@ -1091,7 +1091,7 @@ fromdatespanp rdate = do
 
 todatespanp :: Day -> TextParser m DateSpan
 todatespanp rdate = do
-  choice [string' "to", string' "-"] >> skipMany spacenonewline
+  choice [string' "to", string' "until", string' "-"] >> skipMany spacenonewline
   DateSpan Nothing . Just . fixSmartDate rdate <$> smartdate
 
 justdatespanp :: Day -> TextParser m DateSpan