diff options
Diffstat (limited to 'Command/Expire.hs')
| -rw-r--r-- | Command/Expire.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/Expire.hs b/Command/Expire.hs index 28f90dfb5..bb65d5cfe 100644 --- a/Command/Expire.hs +++ b/Command/Expire.hs @@ -1,6 +1,7 @@ {- git-annex command - - Copyright 2015 Joey Hess <id@joeyh.name> + - Copyright 2022 Benjamin Barenblat <bbarenblat@gmail.com> - - Licensed under the GNU GPL version 3 or higher. -} @@ -108,7 +109,7 @@ parseExpire ps = do Nothing -> giveup $ "bad expire time: " ++ s Just d -> Just (now - durationToPOSIXTime d) -parseActivity :: Monad m => String -> m Activity +parseActivity :: MonadFail m => String -> m Activity parseActivity s = case readish s of Nothing -> fail $ "Unknown activity. Choose from: " ++ unwords (map show [minBound..maxBound :: Activity]) |