diff options
| author | John MacFarlane <[email protected]> | 2021-03-15 23:24:33 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2021-03-15 23:24:33 -0700 |
| commit | 605f1f444c91a0c17327186578b2ffaf5316547a (patch) | |
| tree | b679d45a83acce4ef480a9cc72469db1cb410cab /src/Text/Pandoc/Readers/Markdown.hs | |
| parent | f4be0f9618bc9aa748809018c26d57151a45927f (diff) | |
Removed more unnecessary imports.bespoke-prelude
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index ed9c1ea3d..87ab753d0 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -18,7 +18,6 @@ module Text.Pandoc.Readers.Markdown ( yamlToMeta, yamlToRefs ) where -import Control.Monad import Control.Monad.Except (throwError) import Data.Char (isAlphaNum, isPunctuation, isSpace) import Data.List (transpose, elemIndex, sortOn, foldl') @@ -199,7 +198,7 @@ inlinesInBalancedBrackets = rawLaTeXInline') >> go openBrackets) <|> (do char ']' - Control.Monad.when (openBrackets > 1) $ go (openBrackets - 1)) + when (openBrackets > 1) $ go (openBrackets - 1)) <|> (char '[' >> go (openBrackets + 1)) <|> @@ -820,7 +819,7 @@ orderedListStart mbstydelim = try $ do return (num, style, delim)) listStart :: PandocMonad m => MarkdownParser m () -listStart = bulletListStart <|> Control.Monad.void (orderedListStart Nothing) +listStart = bulletListStart <|> void (orderedListStart Nothing) listLine :: PandocMonad m => Int -> MarkdownParser m Text listLine continuationIndent = try $ do @@ -996,7 +995,7 @@ defRawBlock compact = try $ do definitionList :: PandocMonad m => MarkdownParser m (F Blocks) definitionList = try $ do lookAhead (anyLine >> - optional (blankline >> notFollowedBy (Control.Monad.void table)) >> + optional (blankline >> notFollowedBy (void table)) >> -- don't capture table caption as def list! defListMarker) compactDefinitionList <|> normalDefinitionList |