HCoop
/
hcoop
/
domtool2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove silly special-case servercert stuff
[hcoop/domtool2.git]
/
src
/
main.sml
diff --git
a/src/main.sml
b/src/main.sml
index
02bb485
..
62af91b
100644
(file)
--- a/
src/main.sml
+++ b/
src/main.sml
@@
-1128,10
+1128,12
@@
fun describeQuery q =
fun service () =
let
fun service () =
let
+ val host = Slave.hostname ()
+
val () = Acl.read Config.aclFile
val () = Acl.read Config.aclFile
-
- val context = context (Config.
serverCert
,
- Config.
serverKey
,
+
+ val context = context (Config.
certDir ^ "/" ^ host ^ ".pem"
,
+ Config.
keyDir ^ "/" ^ host ^ "/key.pem"
,
Config.trustStore)
val _ = Domain.set_context context
Config.trustStore)
val _ = Domain.set_context context