golfing

diff --git a/Author.hs b/Author.hs
index fd112da74a7aeaf7666292b03f21d92c2ef0707e..e8479767d25eaaf026a03d09601701d45476a6e8 100644 (file)
--- a/Author.hs
+++ b/Author.hs
@@ -31,5 +31,5 @@ instance Author (a -> a) where
 instance Monad m => Author (a -> m a) where
        authorJoeyHess = pure
        {-# INLINE authorJoeyHess #-}
-       authorJoeyHessCopyright year v = pure (authorJoeyHessCopyright year v)
+       authorJoeyHessCopyright year = pure . authorJoeyHessCopyright year
        {-# INLINE authorJoeyHessCopyright #-}