From b141ecb4d4b9f4a3f00e4e1d284f37a61b2f92e0 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 15 Jul 2020 13:44:08 -0700 Subject: update type constraint Monad -> MonadFail --- Utility/HumanTime.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/HumanTime.hs b/Utility/HumanTime.hs index 01fbeac..51338b3 100644 --- a/Utility/HumanTime.hs +++ b/Utility/HumanTime.hs @@ -44,7 +44,7 @@ daysToDuration :: Integer -> Duration daysToDuration i = Duration $ i * dsecs {- Parses a human-input time duration, of the form "5h", "1m", "5h1m", etc -} -parseDuration :: Monad m => String -> m Duration +parseDuration :: MonadFail m => String -> m Duration parseDuration = maybe parsefail (return . Duration) . go 0 where go n [] = return n -- cgit v1.2.3