3 ms·
Haskell with WAI (more or less, guess there is some conversion from `Bytestring` needed when using `rawPathInfo`) {-# LANGUAGE OverloadedStrings #-} i
by ReleaseCandidat 3y ago
Haskell with WAI (more or less, guess there is some conversion from `Bytestring` needed when using `rawPathInfo`)
{-# LANGUAGE OverloadedStrings #-}
import Network.HTTP.Types
import Network.Wai
import Network.Wai.Handler.Warp (run)
app :: Application
app request respond = do
respond $
responseLBS
status200
[("Content-Type", "text/plain")]
("Hello world, got" <> rawPathInfo request <> "!")
main :: IO ()
main = do
putStrLn "Listening on http://127.0.0.1:8080"
run 8080 app