From 4e423dcff3fb9c5949a6401860188141d1577b9d Mon Sep 17 00:00:00 2001 From: Mahdi Dibaiee Date: Wed, 22 Feb 2017 13:18:12 +0330 Subject: [PATCH] fix: missing semicolon --- src/System/Serverman/Actions/Nginx.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/System/Serverman/Actions/Nginx.hs b/src/System/Serverman/Actions/Nginx.hs index 305ce64..e890868 100644 --- a/src/System/Serverman/Actions/Nginx.hs +++ b/src/System/Serverman/Actions/Nginx.hs @@ -77,7 +77,7 @@ module System.Serverman.Actions.Nginx (nginx) where writeIncludeStatementIfMissing path target = do content <- readFile path - let statement = "include " ++ target ++ "/*" + let statement = "include " ++ target ++ "/*;" when (not (statement `isInfixOf` content)) $ do let newContent = appendAfter content "http {" (" " ++ statement)