diff options
| author | Joris Guyonvarch | 2015-04-12 22:46:56 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-04-12 22:47:27 +0200 |
| commit | 10a9aa9391ac2995527557d9d808693b57236603 (patch) | |
| tree | d1aae79b86a7d289b5733519683302c712fe96da /src/Config.hs | |
| parent | 293fab1df23821b5f131603c4db56ab71681ce59 (diff) | |
| download | ad-listener-10a9aa9391ac2995527557d9d808693b57236603.tar.gz ad-listener-10a9aa9391ac2995527557d9d808693b57236603.tar.bz2 ad-listener-10a9aa9391ac2995527557d9d808693b57236603.zip | |
Ignore lines beginning with # in the configuration file
Diffstat (limited to 'src/Config.hs')
| -rw-r--r-- | src/Config.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Config.hs b/src/Config.hs index c0b0bc0..7a44ec0 100644 --- a/src/Config.hs +++ b/src/Config.hs @@ -19,6 +19,8 @@ import System.Directory (doesFileExist) import Model.URL +import Utils.Text + configUsage :: Text configUsage = T.intercalate @@ -53,6 +55,7 @@ configFromFile = . catMaybes . map lineConfig . filter (not . T.null) + . filter (not . startsWith "#") . map T.strip . T.lines |