shrinker _ (FindByAuthor tag a)  = [ FindByAuthor tag a' | a' <- shrink a ]
shrinker _ (FindByAuthor tag a)  = [ FindByAuthor tag a' | a' <- shrink a ]
shrinker _ (FindByAuthor tag a)  = [ FindByAuthor tag a' | a' <- shrink a ]