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 }) = nginx params@(ServerParams { ssl, serverService, domain, directory, serverType }) =
do do
-- Turn SSL off at first, because we have not yet received a certificate -- 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" parent = configDirectory serverService </> "configs"
path = parent </> domain path = parent </> domain
targetDir = directory targetDir = directory