HotCodeSwap.hs

module LiveCoding.Cell.HotCodeSwap where

-- essence-of-live-coding
import LiveCoding.Cell
import LiveCoding.Migrate

hotCodeSwapCell ::
  Cell m a b ->
  Cell m a b ->
  Cell m a b
hotCodeSwapCell
  (Cell newState newStep)
  (Cell oldState _) =
    Cell
      { cellState = migrate newState oldState
      , cellStep = newStep
      }