handler ∷ Environment → ScottyM ()
handler environment =
  Scotty.post "/api/run" <<< apiTransaction environment $
    runGame <&> (fst >>> markdownResult ok200)

handler ∷ Environment → ScottyM ()
handler environment =
  Scotty.post "/api/run" <<< apiTransaction environment $
    runGame <&> (fst >>> markdownResult ok200)
handler environment =
  Scotty.post "/api/run" <<< apiTransaction environment $
    runGame <&> (fst >>> markdownResult ok200)