Up
module
Command
:
sig
#
type
state
#
val
new_state : unit
->
state
#
val
dispatch :
state
->
'a
Protocol
.request
->
'a
end