diff options
Diffstat (limited to 'Utility/HumanTime.hs')
-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 |