-- | Returns the current graph
getGraph :: Monad m => InstanceBuilder a b m (Digraph a b)
getGraph = do (g, t, rs, r) <- get
              return g

-- | Sets the current graph
getGraph :: Monad m => InstanceBuilder a b m (Digraph a b)
getGraph = do (g, t, rs, r) <- get
              return g

-- | Sets the current graph
getGraph = do (g, t, rs, r) <- get
              return g

-- | Sets the current graph