update (AddScene si) = do
    let sc = defaultScene
    modify (\s -> s { scenes = Map.insert si sc (scenes s) })
    output (AddScene' si sc)
update (AddScene si) = do
    let sc = defaultScene
    modify (\s -> s { scenes = Map.insert si sc (scenes s) })
    output (AddScene' si sc)
update (AddScene si) = do
    let sc = defaultScene
    modify (\s -> s { scenes = Map.insert si sc (scenes s) })
    output (AddScene' si sc)