simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 11:15:35 -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
(** [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
(** Print the route.

10
src/Tiny_httpd_dir.ml
View file

@ -14,11 +14,11 @@ type config = {
}
let default_config () : config =
{ download=true
; dir_behavior=Forbidden
; delete=false
; upload=false
; max_upload_size = 10 * 1024 * 1024
{ download=true;
dir_behavior=Forbidden;
delete=false;
upload=false;
max_upload_size = 10 * 1024 * 1024;
}
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 *)
| Lists
(** Lists content of directory *)
| IndexAndLists
| Index_or_lists
(** Redirect to index.html if present and Lists content otherwise *)
| Forbidden
(** Forbid access to directory *)