Sound.Sc3.Server.Command.Completion
Description
Modify existing message to include completion message
with_completion_packet :: Message -> PacketOf Message -> Message Source #
Add a completion packet to an existing asynchronous command.
withCm :: Message -> Message -> Message Source #
Add a completion message to an existing asynchronous command.
>>> import Sound.Sc3.Server.Command.Plain >>> let m = n_set1 0 "0" 0 >>> let e = encodeMessage m >>> withCm (b_close 0) m == Message "/b_close" [Int32 0,Blob e] True
>>>
import Sound.Sc3.Server.Command.Plain
let m = n_set1 0 "0" 0
let e = encodeMessage m
withCm (b_close 0) m == Message "/b_close" [Int32 0,Blob e]