shrinker _ (FindByTitle  tag t)  = [ FindByTitle  tag t' | t' <- shrink t ]
shrinker _ (FindByTitle  tag t)  = [ FindByTitle  tag t' | t' <- shrink t ]
shrinker _ (FindByTitle  tag t)  = [ FindByTitle  tag t' | t' <- shrink t ]