let fail x = Deferred.return (Result.fail x)