fix: port is string

This commit is contained in:
Mahdi Dibaiee 2017-02-22 12:56:32 +03:30
parent 8fa66bc96c
commit 9e8cc30744

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, port = 80 }) 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