[haskell-http-client] use a decreasing size for Gen (Maybe a), to prevent infinite recursion

Created by: jonschoning