haskell - 设置 SSL + Happstack 服务器示例失败并出现文件错误

Question

我尝试编写一个使用 SSL 的简单 Happstack 应用程序。使用此源代码:

module Main where

import Happstack.Server( ok )
import Happstack.Server.SimpleHTTPS( TLSConf(..), nullTLSConf, simpleHTTPS )

conf :: TLSConf
conf = nullTLSConf{
  tlsPort = 8011
  , tlsCert = "server.crt"
  , tlsKey = "server.key"
  }

main :: IO ()
main = simpleHTTPS nullTLSConf $ ok "Hello, World!"

它可以编译，但是，当我以普通用户身份运行时，我得到:

mytest: bind: permission denied (Permission denied)

当我以 root 身份运行时，我得到:

mytest: user error (error:02001002:system library:fopen:No such file or directory)

我做错了什么？

Answer 1

我发现了错误:

应该是:

main = simpleHTTPS conf $ ok "Hello, World!"