open StdLabels
module State = Script_state.State

type t = Outline.t

let update newPath state =
  let paths = List.map
      state.State.paths
      ~f:(fun line ->
          match Outline.(newPath.id = line.id) with
          | true -> newPath
          | false -> line) in
  { state with paths }