-- Handle an event and simulate its side effects, then ignore the side effects
-- and return the new state.
handleEventFlat :: Event -> ProjectState -> ProjectState
handleEventFlat event state =
  getState $ handleEvent testProjectConfig event state
handleEventFlat :: Event -> ProjectState -> ProjectState
handleEventFlat event state =
  getState $ handleEvent testProjectConfig event state
handleEventFlat event state =
  getState $ handleEvent testProjectConfig event state