-- TODO: Do not ignore actions information, assert that certain events do not
-- have undesirable side effects.
getState :: Action ProjectState -> ProjectState
getState = fst . runAction
getState :: Action ProjectState -> ProjectState
getState = fst . runAction
getState = fst . runAction