-- SPDX-License-Identifier: Apache-2.0
--
-- Copyright (C) 2023 Bin Jin. All Rights Reserved.
module Main
( main
) where
import Data.ByteString.Char8 qualified as BS8
import Data.ByteString.Lazy.Char8 qualified as LBS8
import Network.HTTP.Types qualified as HT
import Network.Wai
import Network.HProx
dumbApp :: Application
dumbApp _req respond =
respond $ responseLBS
HT.status200
[ ("Content-Type", "text/html")
, ("Content-Length", BS8.pack (show (LBS8.length body)))
]
body
where
body = LBS8.unlines [ "It works!
"
, "This is the default web page for this server.
"
, "The web server software is running but no content has been added, yet.
"
, ""
]
main :: IO ()
main = getConfig >>= run dumbApp