diff options
| author | jao <jao@gnu.org> | 2017-04-29 02:09:24 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2017-04-29 02:09:24 +0200 |
| commit | e41fd61bdeac8779fa24050cc0d44714f7c90f1d (patch) | |
| tree | f724480c121a1246c942ed913f167fa71a9e2564 /src/Parsers.hs | |
| parent | 938a8d8307c1c4794c5fcf269c587c3c5c5e70df (diff) | |
| download | xmobar-e41fd61bdeac8779fa24050cc0d44714f7c90f1d.tar.gz xmobar-e41fd61bdeac8779fa24050cc0d44714f7c90f1d.tar.bz2 | |
hlint configuration
Diffstat (limited to 'src/Parsers.hs')
| -rw-r--r-- | src/Parsers.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Parsers.hs b/src/Parsers.hs index 25d215b..5f5949c 100644 --- a/src/Parsers.hs +++ b/src/Parsers.hs @@ -25,7 +25,7 @@ import Runnable import Commands import Actions -import Control.Monad (guard, mzero, liftM) +import Control.Monad (guard, mzero) import qualified Data.Map as Map import Text.ParserCombinators.Parsec import Text.ParserCombinators.Parsec.Perm @@ -276,7 +276,7 @@ parseConfig = runParser parseConf fields "Config" . stripComments spaces char lead s <- manyTill anyChar (rowCont <|> unescQuote) - (char '"' >> return s) <|> liftM (s ++) (scan '\\') + (char '"' >> return s) <|> fmap (s ++) (scan '\\') rowCont = try $ char '\\' >> string "\n" unescQuote = lookAhead (noneOf "\\") >> lookAhead (string "\"") |