thereadme/serverman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix: ignore empty strings in semicolon

Browse Source
This commit is contained in:
Mahdi Dibaiee 2017-04-25 11:36:02 +04:30
parent d8f5272947
commit d228e8c984
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/System/Serverman/Utils.hs
View File

@ -181,6 +181,7 @@ module System.Serverman.Utils ( App (..)
-- add a semicolon to end of each line in string -- add a semicolon to end of each line in string
semicolon :: String -> String semicolon :: String -> String
semicolon [] = []
semicolon text = unlines $ map (++ ";") (lines text) semicolon text = unlines $ map (++ ";") (lines text)
-- create a block with the following format: `<name> {\n<content>\n}` -- create a block with the following format: `<name> {\n<content>\n}`