sig
  type user_agent = User_agent of string
  type disallow = Disallow of string
  type record =
      Restful.Robots.user_agent * Restful.Robots.disallow *
      Restful.Robots.disallow list
  val all :
    ('a -> 'b -> Netcgi.cgi -> Nethttp.http_status) ->
    'a -> 'b -> Netcgi.cgi -> Nethttp.http_status
  val none :
    ('a -> 'b -> Netcgi.cgi -> Nethttp.http_status) ->
    'a -> 'b -> Netcgi.cgi -> Nethttp.http_status
  val some :
    ?text:string ->
    ?file:string ->
    ?robots:(Restful.Robots.user_agent * Restful.Robots.disallow *
             Restful.Robots.disallow list)
            list ->
    ('a -> 'b -> Netcgi.cgi -> Nethttp.http_status) ->
    'a -> 'b -> Netcgi.cgi -> Nethttp.http_status
end