From 61270c31ae292d504c2d43b84d4291c2377e31d7 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 3 May 2026 21:35:05 +0100
Subject: Convert from wai/warp to mini-http-server

---
 mini-http/Main.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 mini-http/Main.hs

(limited to 'mini-http/Main.hs')

diff --git a/mini-http/Main.hs b/mini-http/Main.hs
new file mode 100644
index 0000000..08e66c1
--- /dev/null
+++ b/mini-http/Main.hs
@@ -0,0 +1,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)))
-- 
cgit v1.3.1