-- | The compliment to extract, `insert` appends a snippet of `JStat`
--   to the state of the current `Graph`.

insertCont :: (JStat -> JStat) -> GraphT s a ()
insertCont js = jstat %= (. js)
insertCont :: (JStat -> JStat) -> GraphT s a ()
insertCont js = jstat %= (. js)
insertCont js = jstat %= (. js)