import Control.Applicative
import Control.Monad.Unicode
import qualified Data.ByteString.Lazy.Char8 as Lazy
-import Data.Monoid.Unicode
import Network.HTTP.Lucu
main ∷ IO ()
do putStrLn "Access http://localhost:9999/ with your browser."
runHttpd config resources fallbacks
-
helloWorld ∷ ResourceDef
helloWorld
= emptyResource {
resGet
= Just $ do setContentType $ parseMIMEType "text/hello"
- outputChunk "Hello, "
- outputChunk "World!\n"
- outputChunk =≪ Lazy.pack <$> getRemoteAddr'
+ putChunk "Hello, "
+ putChunk "World!\n"
+ putChunks =≪ Lazy.pack <$> getRemoteAddr'
, resPost
- = Just $ do str1 ← inputChunk 3
- str2 ← inputChunk 3
- str3 ← inputChunk 3
+ = Just $ do str1 ← getChunk 3
+ str2 ← getChunk 3
+ str3 ← getChunk 3
setContentType $ parseMIMEType "text/hello"
- output ("[" ⊕ str1 ⊕ " - " ⊕ str2 ⊕ "#" ⊕ str3 ⊕ "]")
+ putChunks $ Lazy.fromChunks ["[", str1, " - ", str2, "#", str3, "]"]
}