let
server_configuration t =
match
t.mode
with
|
`
Server
s
->
Some
s
|
other
->
None