mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

improve attribution armoring

Browse source
This commit is contained in:
Joey Hess 2023-11-20 21:20:37 -04:00
parent d5d570a96c
commit dab9687184
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Author.hs
View file

@ -12,24 +12,24 @@ module Author where
class Author t where
authorJoeyHess :: t
authorJoeyHess' :: Int -> t
authorJoeyHessCopyright :: Int -> t
instance Author Bool where
authorJoeyHess = True
{-# INLINE authorJoeyHess #-}
authorJoeyHess' year = year >= 2010
{-# INLINE authorJoeyHess' #-}
authorJoeyHessCopyright year = year >= 2010
{-# INLINE authorJoeyHessCopyright #-}
instance Author (a -> a) where
authorJoeyHess = id
{-# INLINE authorJoeyHess #-}
authorJoeyHess' year f
authorJoeyHessCopyright year f
| year >= 2010 = f
| otherwise = authorJoeyHess' (pred year) f
{-# INLINE authorJoeyHess' #-}
| otherwise = authorJoeyHessCopyright (pred year) f
{-# INLINE authorJoeyHessCopyright #-}
instance Monad m => Author (a -> m a) where
authorJoeyHess = pure
{-# INLINE authorJoeyHess #-}
authorJoeyHess' year v = pure (authorJoeyHess' year v)
{-# INLINE authorJoeyHess' #-}
authorJoeyHessCopyright year v = pure (authorJoeyHessCopyright year v)
{-# INLINE authorJoeyHessCopyright #-}