import OpenSSL.RSA
import qualified OpenSSL.Session as SSL
import OpenSSL.X509
+import Prelude.Unicode
main ∷ IO ()
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