fix(ssl): must listen on 80 before the challenge

This commit is contained in:
Mahdi Dibaiee 2017-02-22 12:55:48 +03:30
parent 41e016cf4b
commit 8fa66bc96c

View File

@ -19,7 +19,7 @@ module System.Serverman.Actions.Nginx (nginx) where
nginx params@(ServerParams { ssl, serverService, domain, directory, serverType }) =
do
-- Turn SSL off at first, because we have not yet received a certificate
let content = show (params { ssl = False })
let content = show (params { ssl = False, port = 80 })
parent = configDirectory serverService </> "configs"
path = parent </> domain
targetDir = directory