X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=examples%2FMultipart.hs;h=69c4125accd5a97c54f909dea9141fd5866062c8;hb=087d94db0e7d5b2014487d191c37e829e3129e8d;hp=e68bb396e5b292814845f7849af70995f0f35546;hpb=50e8fe7af585a8d33d93b3721be8f8f01905b891;p=Lucu.git diff --git a/examples/Multipart.hs b/examples/Multipart.hs index e68bb39..69c4125 100644 --- a/examples/Multipart.hs +++ b/examples/Multipart.hs @@ -1,10 +1,9 @@ -import Data.List +import qualified Data.ByteString.Lazy.Char8 as L8 import Data.Maybe -import Network import Network.HTTP.Lucu main :: IO () -main = let config = defaultConfig { cnfServerPort = PortNumber 9999 } +main = let config = defaultConfig { cnfServerPort = "9999" } resources = mkResTree [ ([], resMain) ] in do putStrLn "Access http://localhost:9999/ with your browser." @@ -20,16 +19,21 @@ resMain = Just $ do setContentType $ read "text/html" output ("