import qualified Data.ByteString.Lazy.Char8 as Lazy
import qualified Data.Collections as C
import Data.Time.Clock
+import Network
import Network.HTTP.Lucu
import OpenSSL
import OpenSSL.EVP.PKey
tree ∷ ResourceTree
tree = C.fromList [ ([], nonGreedy helloWorld) ]
putStrLn "Access https://localhost:9001/ with your browser."
- runHttpd config $ resourceMap tree
+ withSocketsDo $ runHttpd config $ resourceMap tree
helloWorld ∷ Resource
helloWorld