Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Use an anonymous function

  • Loading branch information...
commit c6d9947e88a97176c50593c34e132082acab4936 1 parent 02125a7
@andrenth authored
Showing with 1 addition and 4 deletions.
  1. +1 −4 src/policy.ml
View
5 src/policy.ml
@@ -189,15 +189,12 @@ let get_cache instance =
cache
end
-let handle spf_server attrs cache handler =
- handler spf_server attrs cache
-
let handle_attrs spf_server attrs =
let cache = get_cache (Postfix.instance attrs) in
let not_default = ((<>) default_response) in
lwt response =
until not_default
- (handle spf_server attrs cache)
+ (fun handler -> handler spf_server attrs cache)
default_response
handlers in
return (string_of_response response)
Please sign in to comment.
Something went wrong with that request. Please try again.