hlint
authorPHO <pho@cielonegro.org>
Wed, 30 Nov 2011 15:51:29 +0000 (00:51 +0900)
committerPHO <pho@cielonegro.org>
Wed, 30 Nov 2011 15:51:29 +0000 (00:51 +0900)
Ditz-issue: e0312227f40a0fa92d4c5d69a64dad473f54389a

Network/HTTP/Lucu/Httpd.hs
Network/HTTP/Lucu/Resource/Internal.hs
examples/Implanted.hs
examples/ImplantedSmall.hs
examples/Multipart.hs
examples/SSL.hs

index 0d78f986f314f21573aea96c7ff05304c3cea8ba..a5f974978a4c6e5ccc4baad408d61bd5ce69f661 100644 (file)
@@ -41,7 +41,7 @@ import Prelude.Unicode
 --              tree   :: 'ResourceTree'
 --              tree   = C.fromList [ ([], 'nonGreedy' helloWorld) ]
 --          in
---            'Network.withSocketsDo' '$' 'runHttpd' config '$' 'resourceMap' tree
+--            'Network.withSocketsDo' '.' 'runHttpd' config '$' 'resourceMap' tree
 --
 --   helloWorld :: 'Network.HTTP.Lucu.Resource'
 --   helloWorld = C.fromList
index f5b54a94d35f0a74a0efacc6ad7a7d6f6bc4f93d..a19339c1e6280e3830987bab5a9d200002ad6344 100644 (file)
@@ -271,7 +271,7 @@ getRequest = niRequest <$> getInteraction
 --   main :: 'IO' ()
 --   main = let tree :: 'Network.HTTP.Lucu.ResourceTree'
 --              tree = 'fromList' [ (["foo"], 'Network.HTTP.Lucu.greedy' resFoo) ]
---          in 'Network.HTTP.Lucu.runHttpd' 'defaultConfig' $ 'Network.HTTP.Lucu.resourceMap' tree
+--          in 'Network.withSocketsDo' '.' 'Network.HTTP.Lucu.runHttpd' 'defaultConfig' $ 'Network.HTTP.Lucu.resourceMap' tree
 --
 --   resFoo :: 'Resource'
 --   resFoo = 'singleton'
index 03bcbdb1a88593972e17e594ca2b6f6c07bd907b..34878a094a3fd1cfc71ac76df1ff62c6b659b1cf 100644 (file)
@@ -5,6 +5,7 @@ import qualified Data.Collections as C
 import MiseRafturai
 import Network
 import Network.HTTP.Lucu
+import Prelude.Unicode
 
 main ∷ IO ()
 main = let config = defaultConfig { cnfServerPort = "9999" }
@@ -12,4 +13,4 @@ main = let config = defaultConfig { cnfServerPort = "9999" }
            tree   = C.fromList [ ([], nonGreedy miseRafturai) ]
        in
          do putStrLn "Access http://localhost:9999/ with your browser."
-            withSocketsDo $ runHttpd config $ resourceMap tree
+            withSocketsDo  runHttpd config $ resourceMap tree
index ba9b5b9d4cfd336c518e6471924bfe574465ed76..fe45b89615dcfbeafd9284f965577df76dc51749 100644 (file)
@@ -4,6 +4,7 @@
 import qualified Data.Collections as C
 import Network
 import Network.HTTP.Lucu
+import Prelude.Unicode
 import SmallFile
 
 main ∷ IO ()
@@ -12,4 +13,4 @@ main = let config = defaultConfig { cnfServerPort = "9999" }
            tree   = C.fromList [ ([], nonGreedy smallFile) ]
        in
          do putStrLn "Access http://localhost:9999/ with your browser."
-            withSocketsDo $ runHttpd config $ resourceMap tree
+            withSocketsDo  runHttpd config $ resourceMap tree
index e827ae67ab8712f2ebbb9da13cadd1b9409ee2e2..906eff59ca3a78a6f425a3df28a1171e4527e31a 100644 (file)
@@ -10,6 +10,7 @@ import Data.Maybe
 import Data.Monoid.Unicode
 import Network
 import Network.HTTP.Lucu
+import Prelude.Unicode
 
 main ∷ IO ()
 main = let config = defaultConfig { cnfServerPort = "9999" }
@@ -17,7 +18,7 @@ main = let config = defaultConfig { cnfServerPort = "9999" }
            tree   = C.fromList [ ([], nonGreedy resMain) ]
        in
          do putStrLn "Access http://localhost:9999/ with your browser."
-            withSocketsDo $ runHttpd config $ resourceMap tree
+            withSocketsDo  runHttpd config $ resourceMap tree
 
 resMain ∷ Resource
 resMain = C.fromList
index aa8b3a596ffa29031eb136d5b7587976c4ac3f0e..f78b6c229939c49825fb6ab612ddf783066b3abf 100644 (file)
@@ -17,6 +17,7 @@ import OpenSSL.EVP.PKey
 import OpenSSL.RSA
 import qualified OpenSSL.Session as SSL
 import OpenSSL.X509
+import Prelude.Unicode
 
 main ∷ IO ()
 main = withOpenSSL $
@@ -38,7 +39,7 @@ main = withOpenSSL $
               tree   ∷ ResourceTree
               tree   = C.fromList [ ([], nonGreedy helloWorld) ]
           putStrLn "Access https://localhost:9001/ with your browser."
-          withSocketsDo $ runHttpd config $ resourceMap tree
+          withSocketsDo  runHttpd config $ resourceMap tree
 
 helloWorld ∷ Resource
 helloWorld