From 30d4ca02ea147089af994ea7d5f7941a4bbe94a7 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Fri, 8 May 2026 18:26:10 +0100
Subject: Rename mini-http to mini-http-server

And move Parser to Internal.Parser for test suite
---
 mini-http-server/Main.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 mini-http-server/Main.hs

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

diff --git a/mini-http-server/Main.hs b/mini-http-server/Main.hs
new file mode 100644
index 0000000..08e66c1
--- /dev/null
+++ b/mini-http-server/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