handler ∷ Environment → ScottyM ()
handler environment =
  Scotty.get "/status" <<< webTransaction environment $
    getQuestStatus
    <&>
    (
      renderMarkdownToHtml
      >>>
      const
      >>>
      renderTopOnlyPageResult "Habit of Fate - Quest Status" (\_ → []) [] Nothing ok200
    )

handler ∷ Environment → ScottyM ()
handler environment =
  Scotty.get "/status" <<< webTransaction environment $
    getQuestStatus
    <&>
    (
      renderMarkdownToHtml
      >>>
      const
      >>>
      renderTopOnlyPageResult "Habit of Fate - Quest Status" (\_ → []) [] Nothing ok200
    )
handler environment =
  Scotty.get "/status" <<< webTransaction environment $
    getQuestStatus
    <&>
    (
      renderMarkdownToHtml
      >>>
      const
      >>>
      renderTopOnlyPageResult "Habit of Fate - Quest Status" (\_ → []) [] Nothing ok200
    )