Bir WAI (Çözgü) Uygulamasında IO nasıl gerçekleştirilir?

Question

Basit bir WAI uygulamasına (bu örnekte Warp) sahip olduğum tüm web isteklerine "Merhaba" ile yanıt vereceğim. Ayrıca bir istek her işlendiğinde sunucuya "Selam Merhaba" u göstermesini istiyorum. IO'yu WAI yanıt işleyicimin içinde nasıl uygularım?

type Application = Request -> Iteratee ByteString IO Response 

Bu kadar liftIO kullanmak gerekecektir böylece bir WAI uygulaması, IO üzerinde Iteratee monad trafo çalışır anlamına gelir:

{-# LANGUAGE OverloadedStrings #-} 
import Network.Wai 
import Network.HTTP.Types (status200) 
import Network.Wai.Handler.Warp (run) 

main :: IO() 
main = do 
    putStrLn "http://localhost:3000/" 
    run 3000 app 

app :: Application 
app _ = return hello 

hello = responseLBS status200 [("Content-Type", "text/plain")] "Hi" 

Answer 1

bir WAI uygulamasının türüdür

: İşte benim uygulama var Düzenli IO eylemleri gerçekleştirin.

import Control.Monad.Trans 

app _ = do 
    liftIO $ putStrLn "Said hi" 
    return hello