getStartNode :: Id -> GS Node
getStartNode i = getEdgeByIdUnsafe i >>= getStartNodeN
getStartNode :: Id -> GS Node
getStartNode i = getEdgeByIdUnsafe i >>= getStartNodeN
getStartNode i = getEdgeByIdUnsafe i >>= getStartNodeN