deleteNode :: Id -> GS ()
deleteNode i = getNodeByIdUnsafe i >>= deleteNodeN
deleteNode :: Id -> GS ()
deleteNode i = getNodeByIdUnsafe i >>= deleteNodeN
deleteNode i = getNodeByIdUnsafe i >>= deleteNodeN