Update examples to work with current API

diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs
index 2d240e8bb8bb0b751cdaf1d56a76c24b159dd82f..fb1c8ac57ba79337c98a9f5d4738fc51baaec270 100644 (file)
--- a/examples/HelloWorld.hs
+++ b/examples/HelloWorld.hs
@@ -7,13 +7,14 @@ import Control.Applicative
 import Control.Monad.Unicode
 import qualified Data.ByteString.Lazy.Char8 as Lazy
 import qualified Data.Collections as C
+import Data.Default
 import Data.Monoid.Unicode
 import Network
 import Network.HTTP.Lucu
 import Prelude.Unicode
 
 main ∷ IO ()
-main = let config    = defaultConfig { cnfServerPort = "9999" }
+main = let config    = def { cnfServerPort = "9999" }
            mapper    = resourceMap resources ⊕ resourceMap fallbacks
            resources ∷ ResourceTree
            resources = C.fromList

diff --git a/examples/Implanted.hs b/examples/Implanted.hs
index 34878a094a3fd1cfc71ac76df1ff62c6b659b1cf..b1da66dedc98a88a838d2b73212f8cfbbf1d5ab4 100644 (file)
--- a/examples/Implanted.hs
+++ b/examples/Implanted.hs
@@ -2,13 +2,14 @@
     UnicodeSyntax
   #-}
 import qualified Data.Collections as C
+import Data.Default
 import MiseRafturai
 import Network
 import Network.HTTP.Lucu
 import Prelude.Unicode
 
 main ∷ IO ()
-main = let config = defaultConfig { cnfServerPort = "9999" }
+main = let config = def { cnfServerPort = "9999" }
            tree   ∷ ResourceTree
            tree   = C.fromList [ ([], nonGreedy miseRafturai) ]
        in

diff --git a/examples/ImplantedSmall.hs b/examples/ImplantedSmall.hs
index fe45b89615dcfbeafd9284f965577df76dc51749..2f8f066d8e2a8681385ba95e63e85de58caa17b7 100644 (file)
--- a/examples/ImplantedSmall.hs
+++ b/examples/ImplantedSmall.hs
@@ -2,13 +2,14 @@
     UnicodeSyntax
   #-}
 import qualified Data.Collections as C
+import Data.Default
 import Network
 import Network.HTTP.Lucu
 import Prelude.Unicode
 import SmallFile
 
 main ∷ IO ()
-main = let config = defaultConfig { cnfServerPort = "9999" }
+main = let config = def { cnfServerPort = "9999" }
            tree   ∷ ResourceTree
            tree   = C.fromList [ ([], nonGreedy smallFile) ]
        in

diff --git a/examples/Multipart.hs b/examples/Multipart.hs
index ab857a8be0b13bf85f5beed89028011ca9a97cc0..f7122f9cc58aab710337c234c813b490bc0212ad 100644 (file)
--- a/examples/Multipart.hs
+++ b/examples/Multipart.hs
@@ -7,6 +7,7 @@ import qualified Data.ByteString.Lazy.Char8 as Lazy
 import Control.Applicative
 import qualified Data.Collections as C
 import Control.Monad.Unicode
+import Data.Default
 import Data.Maybe
 import Data.Monoid.Unicode
 import Network
@@ -19,7 +20,7 @@ import Text.Blaze.Html5.Attributes hiding (form, title)
 import Text.Blaze.Renderer.Utf8
 
 main ∷ IO ()
-main = let config = defaultConfig { cnfServerPort = "9999" }
+main = let config = def { cnfServerPort = "9999" }
            tree   ∷ ResourceTree
            tree   = C.fromList [ ([], nonGreedy resMain) ]
        in
@@ -48,7 +49,7 @@ resMain = C.fromList
                  let text     = fromMaybe (∅) $ fdContent <$> lookup "text" f
                      file     = fromMaybe (∅) $ fdContent <$> lookup "file" f
                      fileName = fdFileName =≪ lookup "file" f
-                 setContentType $ parseMIMEType "text/plain"
+                 setContentType [mimeType| text/plain |]
                  putChunks $ "You entered \"" ⊕ text ⊕ "\".\n"
                  putChunks $ "You uploaded a " ⊕ Lazy.pack (show $ Lazy.length file) ⊕ " bytes long file.\n"
                  putChunks $ "The file name is " ⊕ Lazy.pack (show fileName) ⊕ ".\n"

diff --git a/examples/SSL.hs b/examples/SSL.hs
index f78b6c229939c49825fb6ab612ddf783066b3abf..cbf75dc8aa4bd46fb8ef4ca9ce7de588d39cd666 100644 (file)
--- a/examples/SSL.hs
+++ b/examples/SSL.hs
@@ -9,6 +9,7 @@ import Control.Monad.IO.Class
 import Control.Monad.Unicode
 import qualified Data.ByteString.Lazy.Char8 as Lazy
 import qualified Data.Collections as C
+import Data.Default
 import Data.Time.Clock
 import Network
 import Network.HTTP.Lucu
@@ -29,7 +30,7 @@ main = withOpenSSL $
           SSL.contextSetCertificate    ctx cert
           SSL.contextSetDefaultCiphers ctx
 
-          let config = defaultConfig {
+          let config = def {
                          cnfServerPort = "9000"
                        , cnfSSLConfig  = Just SSLConfig {
                                            sslServerPort = "9001"