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
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
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
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
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
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"
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
SSL.contextSetCertificate ctx cert
SSL.contextSetDefaultCiphers ctx
- let config = defaultConfig {
+ let config = def {
cnfServerPort = "9000"
, cnfSSLConfig = Just SSLConfig {
sslServerPort = "9001"