diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-19 19:33:04 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-19 19:33:11 +0300 |
| commit | f019d3cc45e595710eff9a1c380dbcee9f02c93a (patch) | |
| tree | 73d10786baeb30ed71960bb4752f3c1c3f5c6b46 /src/Text/Pandoc/Readers | |
| parent | 01499b766b16f4ab1c7ce4e3e82780a099c6dd37 (diff) | |
| download | pandoc-f019d3cc45e595710eff9a1c380dbcee9f02c93a.tar.gz | |
Muse reader: remove duplicate variable in definitionListItem
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 8bef5b539..074f1e65a 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -470,9 +470,8 @@ orderedList = try $ do definitionListItem :: PandocMonad m => MuseParser m (F (Inlines, [Blocks])) definitionListItem = try $ do many spaceChar - startPos <- getPosition - (guardDisabled Ext_amuse) <|> (guard (sourceColumn startPos /= 1)) -- Initial space is required by Amusewiki, but not Emacs Muse pos <- getPosition + (guardDisabled Ext_amuse) <|> (guard (sourceColumn pos /= 1)) -- Initial space is required by Amusewiki, but not Emacs Muse term <- trimInlinesF . mconcat <$> manyTill (choice inlineList) (string "::") void spaceChar <|> lookAhead eol contents <- listItemContents' $ sourceColumn pos |