simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 03:05:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

some small code improvements

Browse source
This commit is contained in:
Simon Cruanes 2021-12-20 09:49:44 -05:00 • committed by GitHub
parent fe0da80f2f
commit ce4b5f0a11
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
3 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Tiny_httpd.mli
View file

@ -456,7 +456,8 @@ module Route : sig
val exact_path : string -> ('a,'b) t -> ('a,'b) t val exact_path : string -> ('a,'b) t -> ('a,'b) t
(** [exact_path "foo/bar/..." r] is equivalent to (** [exact_path "foo/bar/..." r] is equivalent to
[exact "foo" @/ exact "bar" @/ ... @/ r] **) [exact "foo" @/ exact "bar" @/ ... @/ r]
@since NEXT_RELEASE **)
val pp : Format.formatter -> _ t -> unit val pp : Format.formatter -> _ t -> unit
(** Print the route. (** Print the route.

10
src/Tiny_httpd_dir.ml
View file

@ -14,11 +14,11 @@ type config = {
} }
let default_config () : config = let default_config () : config =
{ download=true { download=true;
; dir_behavior=Forbidden dir_behavior=Forbidden;
; delete=false delete=false;
; upload=false upload=false;
; max_upload_size = 10 * 1024 * 1024 max_upload_size = 10 * 1024 * 1024;
} }
let contains_dot_dot s = let contains_dot_dot s =

2
src/Tiny_httpd_dir.mli
View file

@ -5,7 +5,7 @@ type dir_behavior =
(** Redirect to index.html if present *) (** Redirect to index.html if present *)
| Lists | Lists
(** Lists content of directory *) (** Lists content of directory *)
| IndexAndLists | Index_or_lists
(** Redirect to index.html if present and Lists content otherwise *) (** Redirect to index.html if present and Lists content otherwise *)
| Forbidden | Forbidden
(** Forbid access to directory *) (** Forbid access to directory *)