-- | Convenience method exposes a default GraphState for bootstraping

emptyState :: s -> GraphState s
emptyState s = GraphState {
    _jstat = id,
    _jCursor = id,
    _jJoined = False,
    _userState = s,
    _varSeed = 0
}
emptyState :: s -> GraphState s
emptyState s = GraphState {
    _jstat = id,
    _jCursor = id,
    _jJoined = False,
    _userState = s,
    _varSeed = 0
}
emptyState s = GraphState {
    _jstat = id,
    _jCursor = id,
    _jJoined = False,
    _userState = s,
    _varSeed = 0
}