{-# LANGUAGE OverloadedStrings #-}
module Main where

import Data.ByteString.Char8 qualified as BS8

import Network.HTTP.Server.Mini


main :: IO ()
main =
  run defaultSettings { setPort = 8000 } $ \req ->
    return (responseBS status200 [("Content-Type", "text/plain")] (BS8.pack (show req)))