startApp :: IO ()
startApp = do
  -- loading / creating the transitions is expensive, so we do it eagerlyOnce
  cachedQt <- eagerlyOnce questionTransitions
  cachedAt <- eagerlyOnce answerTransitions
  run 8080 $ simpleCors $ app cachedQt cachedAt
startApp :: IO ()
startApp = do
  -- loading / creating the transitions is expensive, so we do it eagerlyOnce
  cachedQt <- eagerlyOnce questionTransitions
  cachedAt <- eagerlyOnce answerTransitions
  run 8080 $ simpleCors $ app cachedQt cachedAt
startApp = do
  -- loading / creating the transitions is expensive, so we do it eagerlyOnce
  cachedQt <- eagerlyOnce questionTransitions
  cachedAt <- eagerlyOnce answerTransitions
  run 8080 $ simpleCors $ app cachedQt cachedAt