blob: 08e66c1839a86b11106816e463b42d4fb810c8fc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# 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)))
|
