findPath :: ScaffoldBuilder -> [Step]
findPath = unfoldr takeStep
takeStep :: ScaffoldBuilder -> Maybe (Step, ScaffoldBuilder)
takeStep visitedScaffold = step
where scaff = _scaffold visitedScaffold
findPath :: ScaffoldBuilder -> [Step]
findPath = unfoldr takeStep
takeStep :: ScaffoldBuilder -> Maybe (Step, ScaffoldBuilder)
takeStep visitedScaffold = step
where scaff = _scaffold visitedScaffold