1 files changed, 12 insertions, 0 deletions
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)))