Minimaler Warp Webserver Beispiel

Question

Ich möchte eine Webseite mit dem warp Webserver in Haskell erstellen. Da ich ein Haskell-Anfänger bin, sind Beispiele wie this one zu komplex für mich.

Kann mir jemand ein einfaches, minimales Beispiel zeigen, wie man Warp verwendet?

Hinweis: Diese Frage zeigt absichtlich keine Forschungsanstrengungen, da sie Q & A-Style beantwortet wurde.

Answer 1

Hier ist eine minimale Hallo Welt Anwendung mit Warp 3.0 +. Führen Sie es aus und navigieren Sie zu http://localhost:3000. In diesem Beispiel wird Hello world angezeigt.

Um dieses Beispiel minimal zu halten, werden URL-Pfade überhaupt nicht behandelt (der gleiche Inhalt wird für jeden Pfad geliefert). Für ein etwas längeres Beispiel-URL-Pfad Handhabung enthält, siehe the Haskell Wiki

{-# LANGUAGE OverloadedStrings #-} 

import Network.Wai (responseLBS, Application) 
import Network.Wai.Handler.Warp (run) 
import Network.HTTP.Types (status200) 
import Network.HTTP.Types.Header (hContentType) 

main = do 
    let port = 3000 
    putStrLn $ "Listening on port " ++ show port 
    run port app 

app :: Application 
app req f = 
    f $ responseLBS status200 [(hContentType, "text/plain")] "Hello world!" 

-Update 2014.06.20: Warp 3.0 einige API-Änderungen enthielt - reflektieren sie im Code zurück.