From cfc2a4b01f9993b1b51432f0a95fa6730d9a558a Mon Sep 17 00:00:00 2001
From: k0001 <k0001@users.noreply.github.com>
Date: Wed, 12 Apr 2023 20:35:34 +0300
Subject: [PATCH] Tests.hs: Use time's parseTimeM instead of parseTime

parseTime is gone in time>=1.10
---
 tests/Tests.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

Index: b/tests/Tests.hs
===================================================================
--- a/tests/Tests.hs
+++ b/tests/Tests.hs
@@ -210,7 +210,7 @@ tests knowns = testGroup "hourglass"
         [ testProperty "iso8601 date" $ \(e :: Elapsed) ->
             let fmt = calTimeFormatTimeISO8601 (elapsedToPosixTime e)
                 ed1  = localTimeParseE ISO8601_Date fmt
-                md2  = T.parseTime T.defaultTimeLocale fmt "%F"
+                md2  = T.parseTimeM True T.defaultTimeLocale fmt "%F"
              in case (ed1,md2) of
                     (Left err, Nothing)       -> error ("both cannot parse: " ++ show fmt ++ " hourglass-err=" ++ show err)
                     (Left err, Just _)        -> error ("error parsing string: " ++ show err)
