diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-02 15:28:53 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-02 15:28:53 +0300 |
| commit | a553baf3a46e29d5137a8051838153c4fc83c6d5 (patch) | |
| tree | 24f8e09e004050ffd619a36f86e1163891fe83dc /src/Text/Pandoc/Readers/Textile.hs | |
| parent | faa1b364e24ac7cad592c6238445f347d0739c19 (diff) | |
hlint
Diffstat (limited to 'src/Text/Pandoc/Readers/Textile.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs index f8c2b8cb7..a3b4f2ff1 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -387,7 +387,7 @@ table = try $ do char '.' rawcapt <- trim <$> anyLine parseFromString' (mconcat <$> many inline) rawcapt - rawrows <- many1 $ (skipMany ignorableRow) >> tableRow + rawrows <- many1 $ skipMany ignorableRow >> tableRow skipMany ignorableRow blanklines let (headers, rows) = case rawrows of @@ -438,8 +438,7 @@ maybeExplicitBlock name blk = try $ do -- | Any inline element inline :: PandocMonad m => ParserT [Char] ParserState m Inlines -inline = do - choice inlineParsers <?> "inline" +inline = choice inlineParsers <?> "inline" -- | Inline parsers tried in order inlineParsers :: PandocMonad m => [ParserT [Char] ParserState m Inlines] @@ -610,7 +609,7 @@ escapedInline = escapedEqs <|> escapedTag escapedEqs :: PandocMonad m => ParserT [Char] ParserState m Inlines escapedEqs = B.str <$> - (try $ string "==" *> manyTill anyChar' (try $ string "==")) + try (string "==" *> manyTill anyChar' (try $ string "==")) -- | literal text escaped btw <notextile> tags escapedTag :: PandocMonad m => ParserT [Char] ParserState m Inlines @@ -643,7 +642,7 @@ code2 = do -- | Html / CSS attributes attributes :: PandocMonad m => ParserT [Char] ParserState m Attr -attributes = (foldl (flip ($)) ("",[],[])) <$> +attributes = foldl (flip ($)) ("",[],[]) <$> try (do special <- option id specialAttribute attrs <- many attribute return (special : attrs)) |