diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-08-04 22:07:02 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-08-04 22:07:02 -0700 |
| commit | 2de2842bddf06847560f975933837923cba83db1 (patch) | |
| tree | 84204f6658e47a4b84b8d14b8ad0f3bb51cd5d8d /src/Text/Pandoc/Readers/Org.hs | |
| parent | 39b59b7603c1e183dd20bb062b6279c2acc4ebd5 (diff) | |
| parent | 675b15458a03371ef4d72d52218319a4cf09216d (diff) | |
Merge pull request #1486 from Aelve/minor
Very minor cleanup and readability changes
Diffstat (limited to 'src/Text/Pandoc/Readers/Org.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Org.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Org.hs b/src/Text/Pandoc/Readers/Org.hs index 065f5a046..e1c29d1e8 100644 --- a/src/Text/Pandoc/Readers/Org.hs +++ b/src/Text/Pandoc/Readers/Org.hs @@ -274,7 +274,7 @@ optionalAttributes parser = try $ parseBlockAttributes :: OrgParser () parseBlockAttributes = do attrs <- many attribute - () <$ mapM (uncurry parseAndAddAttribute) attrs + mapM_ (uncurry parseAndAddAttribute) attrs where attribute :: OrgParser (String, String) attribute = try $ do |