Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
belenios
belenios
Commits
0d5f4b7a
Commit
0d5f4b7a
authored
Jul 30, 2014
by
Stephane Glondu
Browse files
Web_site: move Filename.concat alias to top level
parent
d5a77e10
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/web/web_site.ml
View file @
0d5f4b7a
...
...
@@ -52,6 +52,8 @@ let get_single_line x =
return
None
)
let
(
/
)
=
Filename
.
concat
module
Make
(
C
:
CONFIG
)
:
SITE
=
struct
open
Eliom_service
open
Eliom_registration
...
...
@@ -217,7 +219,6 @@ module Make (C : CONFIG) : SITE = struct
Lwt_mutex
.
unlock
registration_mutex
;
return
None
)
else
(
let
(
/
)
=
Filename
.
concat
in
let
dir
=
C
.
spool_dir
/
uuid
in
lwt
metadata
=
Lwt_io
.
chars_of_file
f
.
f_metadata
|>
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment