diff --git a/hledger-lib/Hledger/Data/Dates.hs b/hledger-lib/Hledger/Data/Dates.hs
index 757fbc802..88bb8dba1 100644
--- a/hledger-lib/Hledger/Data/Dates.hs
+++ b/hledger-lib/Hledger/Data/Dates.hs
@@ -74,7 +74,6 @@ module Hledger.Data.Dates (
   fixSmartDateStrEither',
   yearp,
   daysInSpan,
-  maybePeriod,
 
   tests_Dates
 )
@@ -374,9 +373,6 @@ parsePeriodExpr' refdate s =
   either (error' . ("failed to parse:" ++) . customErrorBundlePretty) id $  -- PARTIAL:
   parsePeriodExpr refdate s
 
-maybePeriod :: Day -> Text -> Maybe (Interval,DateSpan)
-maybePeriod refdate = either (const Nothing) Just . parsePeriodExpr refdate
-
 -- | Show a DateSpan as a human-readable pseudo-period-expression string.
 -- dateSpanAsText :: DateSpan -> String
 -- dateSpanAsText (DateSpan Nothing Nothing)   = "all"
diff --git a/hledger-lib/Hledger/Reports/PostingsReport.hs b/hledger-lib/Hledger/Reports/PostingsReport.hs
index 832e17c19..84b0852dd 100644
--- a/hledger-lib/Hledger/Reports/PostingsReport.hs
+++ b/hledger-lib/Hledger/Reports/PostingsReport.hs
@@ -332,14 +332,14 @@ tests_PostingsReport = testGroup "PostingsReport" [
         let periodexpr `gives` dates = do
               j' <- samplejournal
               registerdates (postingsReportAsText opts $ postingsReport opts (queryFromOpts date1 opts) j') `is` dates
-                  where opts = defreportopts{period_=maybePeriod date1 periodexpr}
+                  where opts = defreportopts{period_=Just $ parsePeriodExpr' date1 periodexpr}
         ""     `gives` ["2008/01/01","2008/06/01","2008/06/02","2008/06/03","2008/12/31"]
         "2008" `gives` ["2008/01/01","2008/06/01","2008/06/02","2008/06/03","2008/12/31"]
         "2007" `gives` []
         "june" `gives` ["2008/06/01","2008/06/02","2008/06/03"]
         "monthly" `gives` ["2008/01/01","2008/06/01","2008/12/01"]
         "quarterly" `gives` ["2008/01/01","2008/04/01","2008/10/01"]
-        let opts = defreportopts{period_=maybePeriod date1 "yearly"}
+        let opts = defreportopts{period_=Just $ parsePeriodExpr' date1 "yearly"}
         (postingsReportAsText opts $ postingsReport opts (queryFromOpts date1 opts) j) `is` unlines
          ["2008/01/01 - 2008/12/31         assets:bank:saving               $1           $1"
          ,"                                assets:cash                     $-2          $-1"
@@ -349,9 +349,9 @@ tests_PostingsReport = testGroup "PostingsReport" [
          ,"                                income:salary                   $-1          $-1"
          ,"                                liabilities:debts                $1            0"
          ]
-        let opts = defreportopts{period_=maybePeriod date1 "quarterly"}
+        let opts = defreportopts{period_=Just $ parsePeriodExpr' date1 "quarterly"}
         registerdates (postingsReportAsText opts $ postingsReport opts (queryFromOpts date1 opts) j) `is` ["2008/01/01","2008/04/01","2008/10/01"]
-        let opts = defreportopts{period_=maybePeriod date1 "quarterly",empty_=True}
+        let opts = defreportopts{period_=Just $ parsePeriodExpr' date1 "quarterly",empty_=True}
         registerdates (postingsReportAsText opts $ postingsReport opts (queryFromOpts date1 opts) j) `is` ["2008/01/01","2008/04/01","2008/07/01","2008/10/01"]
 
       ]