let
snapshot_name =
match
cp_snapshot_name
#
get
with
|
None
->
cp_experiment
#
get
|
Some
s
->
s