pipetransition.elm

type alias Transition state effect = (state, List effect)


pipe : List a -> (a -> state -> Transition state effect) -> state -> Transition state effect 
pipe actions update state =
  case actions of 
    [] ->
      (state, [])
      
    x :: xs ->
      let 
          (nextState, nextEffects) = 
            update x state
            
          (finalState, finalEffects) = 
            pipe xs update nextState
            
      in 
          (finalState, nextEffects ++ finalEffects)