diff --git a/Hledger/Interest/Rate.hs b/Hledger/Interest/Rate.hs
--- a/Hledger/Interest/Rate.hs
+++ b/Hledger/Interest/Rate.hs
@@ -18,7 +18,7 @@
   where
     (_, effectiveRate) = last $ takeWhile (\(fromDate, _) -> fromDate<date) sortedSchedule
     sortedSchedule = sortOn fst schedule
-        
+
 day :: Integer -> Int -> Int -> Day
 day = fromGregorian
 
@@ -59,17 +59,29 @@
   , (day 2011 07 01, day 2011 12 31,  37 / 10000)
   , (day 2012 01 01, day 2012 06 30,  12 / 10000)
   , (day 2012 07 01, day 2012 12 31,  12 / 10000)
-  , (day 2013 01 01, day 2013 06 30, -13 / 10000)
-  , (day 2013 07 01, day 2013 12 31, -38 / 10000)
-  , (day 2014 01 01, day 2014 06 30, -63 / 10000)
-  , (day 2014 07 01, day 2014 12 31, -73 / 10000)
-  , (day 2015 01 01, day 2015 06 30, -83 / 10000)
-  , (day 2015 07 01, day 2015 12 31, -83 / 10000)
-  , (day 2016 01 01, day 2016 06 30, -83 / 10000)
-  , (day 2016 07 01, day 2016 12 31, -88 / 10000)
-  , (day 2017 01 01, day 2017 06 30, -88 / 10000)
-  , (day 2017 07 01, day 2017 12 31, -88 / 10000)
-  , (day 2018 01 01, day 2018 06 30, -88 / 10000)
+  , (day 2013 01 01, day 2013 06 30, (-13) / 10000)
+  , (day 2013 07 01, day 2013 12 31, (-38) / 10000)
+  , (day 2014 01 01, day 2014 06 30, (-63) / 10000)
+  , (day 2014 07 01, day 2014 12 31, (-73) / 10000)
+  , (day 2015 01 01, day 2015 06 30, (-83) / 10000)
+  , (day 2015 07 01, day 2015 12 31, (-83) / 10000)
+  , (day 2016 01 01, day 2016 06 30, (-83) / 10000)
+  , (day 2016 07 01, day 2016 12 31, (-88) / 10000)
+  , (day 2017 01 01, day 2017 06 30, (-88) / 10000)
+  , (day 2017 07 01, day 2017 12 31, (-88) / 10000)
+  , (day 2018 01 01, day 2018 06 30, (-88) / 10000)
+  , (day 2019 01 01, day 2019 06 30, (-88) / 10000)
+  , (day 2019 07 01, day 2019 12 31, (-88) / 10000)
+  , (day 2020 01 01, day 2020 06 30, (-88) / 10000)
+  , (day 2020 07 01, day 2020 12 31, (-88) / 10000)
+  , (day 2021 01 01, day 2021 06 30, (-88) / 10000)
+  , (day 2021 07 01, day 2021 12 31, (-88) / 10000)
+  , (day 2022 01 01, day 2022 06 30, (-88) / 10000)
+  , (day 2022 07 01, day 2022 12 31, (-88) / 10000)
+  , (day 2023 01 01, day 2023 06 30, 162 / 10000)
+  , (day 2023 07 01, day 2023 12 31, 312 / 10000)
+  , (day 2024 01 01, day 2024 06 30, 362 / 10000)
+  , (day 2024 07 01, day 2024 12 31, 337 / 10000)
   ]
 
 ingDiba :: Rate
diff --git a/Main.hs b/Main.hs
--- a/Main.hs
+++ b/Main.hs
@@ -3,7 +3,7 @@
 import Hledger.Interest
 import Hledger.Query
 import Hledger.Read
-import Hledger.Utils
+import Hledger.Utils ( toRegex' )
 
 import Control.Exception ( bracket )
 import Control.Monad
diff --git a/hledger-interest.cabal b/hledger-interest.cabal
--- a/hledger-interest.cabal
+++ b/hledger-interest.cabal
@@ -1,5 +1,5 @@
 Name:                   hledger-interest
-Version:                1.6.6
+Version:                1.6.7
 Synopsis:               computes interest for a given account
 License:                BSD3
 License-file:           LICENSE
@@ -12,7 +12,8 @@
 Extra-source-files:     README.md
 Stability:              stable
 tested-with:            GHC == 8.4.4, GHC == 8.6.5, GHC == 8.8.4, GHC == 8.10.7,
-                        GHC == 9.0.2, GHC == 9.2.8, GHC == 9.4.7, GHC == 9.6.1
+                        GHC == 9.0.2, GHC == 9.2.8, GHC == 9.4.8, GHC == 9.6.3,
+                        GHC == 9.8.4, GHC == 9.10.1
 
 Description:
  hledger-interest is a small command-line utility based on Simon
@@ -119,7 +120,7 @@
 Executable hledger-interest
   default-language:     Haskell2010
   Main-is:              Main.hs
-  Build-depends:        base >= 3 && < 5, hledger-lib >= 1.26 && < 1.31, time, mtl, Cabal, Decimal, text
+  Build-depends:        base >= 3 && < 5, hledger-lib >= 1.26 && < 1.42, time, mtl, Cabal, Decimal, text
   other-modules:        Hledger.Interest
                         Hledger.Interest.DayCountConvention
                         Hledger.Interest.Rate