promise :: Promise -> ScpM ()
promise p = modify (\s -> s { promises = p : promises s })
promise :: Promise -> ScpM ()
promise p = modify (\s -> s { promises = p : promises s })
promise p = modify (\s -> s { promises = p : promises s })