diff options
| author | Pete Ryland <pdr@pdr.cx> | 2019-07-02 10:29:34 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-07-02 10:29:34 +0200 |
| commit | 24c781039fb280604eb1a73dd7de154db9e1e236 (patch) | |
| tree | 4159323a476918f8eafca3048fadfcfe789d498f /src/Text/Pandoc/Readers/Org | |
| parent | b6c53553a929a8623ce56af961d28d5dcc4750d5 (diff) | |
| download | pandoc-24c781039fb280604eb1a73dd7de154db9e1e236.tar.gz | |
Fix redundant constraint warnings. (#5625)
Diffstat (limited to 'src/Text/Pandoc/Readers/Org')
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/Blocks.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs index 9c409510f..46ddc4257 100644 --- a/src/Text/Pandoc/Readers/Org/Blocks.hs +++ b/src/Text/Pandoc/Readers/Org/Blocks.hs @@ -772,7 +772,7 @@ bulletList = try $ do fmap (B.bulletList . compactify) . sequence <$> many1 (listItem (bulletListStart `indented` indent)) -indented :: Monad m => OrgParser m Int -> Int -> OrgParser m Int +indented :: OrgParser m Int -> Int -> OrgParser m Int indented indentedMarker minIndent = try $ do n <- indentedMarker guard (minIndent <= n) |