X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=examples%2FHelloWorld.hs;h=f8a4721dca6c5503a31e50715e69e43d0c0c2273;hp=468de85da37b3dfedad4940d8250248b230f8940;hb=b22e702f8161447a460847c6e6c97104c150534f;hpb=41b0d69438ec76c5bd070348cf9912dc72f3ff44 diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs index 468de85..f8a4721 100644 --- a/examples/HelloWorld.hs +++ b/examples/HelloWorld.hs @@ -1,39 +1,40 @@ -import Network +{-# LANGUAGE + OverloadedStrings + , QuasiQuotes + , UnicodeSyntax + #-} +import Control.Applicative +import Control.Monad.Unicode +import qualified Data.ByteString.Lazy.Char8 as Lazy import Network.HTTP.Lucu -main :: IO () -main = let config = defaultConfig { cnfServerPort = PortNumber 9999 } - resources = mkResTree [ ( [] - , helloWorld ) - - , ( ["urandom"] - , staticFile "/dev/urandom" ) - - , ( ["inc"] - , staticDir "/usr/include" ) - ] +main ∷ IO () +main = let config = defaultConfig { cnfServerPort = "9999" } + resources = mkResTree + [ ([] , helloWorld ) + , (["urandom"], staticFile "/dev/urandom") + , (["inc" ], staticDir "/usr/include" ) + ] + fallbacks = [ \ path → case path of + ["hello"] → return $ Just helloWorld + _ → return Nothing + ] in - runHttpd config resources - + do putStrLn "Access http://localhost:9999/ with your browser." + runHttpd config resources fallbacks -helloWorld :: ResourceDef +helloWorld ∷ ResourceDef helloWorld - = ResourceDef { - resUsesNativeThread = False - , resIsGreedy = False - , resGet - = Just $ do --time <- liftIO $ getClockTime - --foundEntity (strongETag "abcde") time - setContentType $ "text" "hello" - outputChunk "Hello, " - outputChunk "World!\n" - , resHead = Nothing + = emptyResource { + resGet + = Just $ do setContentType [mimeType| text/hello |] + putChunk "Hello, " + putChunk "World!\n" + putChunks =≪ Lazy.pack <$> getRemoteAddr' , resPost - = Just $ do str1 <- inputChunk 3 - str2 <- inputChunk 3 - str3 <- inputChunk 3 - setContentType $ "text" "hello" - output ("[" ++ str1 ++ " - " ++ str2 ++ "#" ++ str3 ++ "]") - , resPut = Nothing - , resDelete = Nothing - } \ No newline at end of file + = Just $ do str1 ← getChunk 3 + str2 ← getChunk 3 + str3 ← getChunk 3 + setContentType [mimeType| text/hello |] + putChunks $ Lazy.fromChunks ["[", str1, " - ", str2, "#", str3, "]"] + }