avoid displicate of year range
This commit is contained in:
parent
dab9687184
commit
63c79dceef
1 changed files with 1 additions and 1 deletions
|
@ -24,7 +24,7 @@ instance Author (a -> a) where
|
||||||
authorJoeyHess = id
|
authorJoeyHess = id
|
||||||
{-# INLINE authorJoeyHess #-}
|
{-# INLINE authorJoeyHess #-}
|
||||||
authorJoeyHessCopyright year f
|
authorJoeyHessCopyright year f
|
||||||
| year >= 2010 = f
|
| authorJoeyHessCopyright year = f
|
||||||
| otherwise = authorJoeyHessCopyright (pred year) f
|
| otherwise = authorJoeyHessCopyright (pred year) f
|
||||||
{-# INLINE authorJoeyHessCopyright #-}
|
{-# INLINE authorJoeyHessCopyright #-}
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue