summaryrefslogtreecommitdiffhomepage
path: root/src/Parsers.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Parsers.hs')
-rw-r--r--src/Parsers.hs16
1 files changed, 5 insertions, 11 deletions
diff --git a/src/Parsers.hs b/src/Parsers.hs
index b4a2d59..f7be1e3 100644
--- a/src/Parsers.hs
+++ b/src/Parsers.hs
@@ -25,7 +25,7 @@ import Runnable
import Commands
import Actions
-import Control.Monad (guard, mzero)
+import Control.Monad (guard, mzero, liftM)
import qualified Data.Map as Map
import Text.ParserCombinators.Parsec
import Text.ParserCombinators.Parsec.Perm
@@ -248,21 +248,15 @@ parseConfig = runParser parseConf fields "Config" . stripComments
strField e n = field e n strMulti
- strMulti = do
- scan '"'
+ strMulti = scan '"'
where
scan lead = do
spaces
char lead
s <- manyTill anyChar (rowCont <|> unescQuote)
- ( char '"' >> return s )
- <|> ( scan '\\' >>= return . (s ++) )
- rowCont = try $ (char '\\') >> (string "\n")
- unescQuote = (lookAhead $ noneOf "\\") >> (lookAhead $ string "\"")
-
- strDel t n = char '"' <?> strErr t n
- strErr t n = "the " ++ t ++ " of the string field " ++ n ++
- " - a double quote (\")."
+ (char '"' >> return s) <|> liftM (s ++) (scan '\\')
+ rowCont = try $ char '\\' >> string "\n"
+ unescQuote = lookAhead (noneOf "\\") >> lookAhead (string "\"")
wrapSkip x = many space >> x >>= \r -> many space >> return r
sepEndSpc = mapM_ (wrapSkip . try . string)