diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2020-07-15 13:44:08 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-07-15 13:44:08 -0700 |
| commit | b141ecb4d4b9f4a3f00e4e1d284f37a61b2f92e0 (patch) | |
| tree | 079258fd327a3e153eaea91cfb10aa2264d9d312 | |
| parent | ea1301879a60ebfb4fa3e2241d814d97e34b7599 (diff) | |
| download | git-repair-b141ecb4d4b9f4a3f00e4e1d284f37a61b2f92e0.tar.gz | |
update type constraint Monad -> MonadFail
| -rw-r--r-- | Utility/HumanTime.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |