diff options
| author | Artyom Kazak <yom@artyom.me> | 2014-08-03 19:23:16 +0400 |
|---|---|---|
| committer | Artyom Kazak <yom@artyom.me> | 2014-08-04 19:41:37 +0400 |
| commit | f659644fccc5ee2eb21338ba0059da52a94fccbf (patch) | |
| tree | 70a34ce0605d640937fb3cf25ce8dfd1e1683d39 | |
| parent | 81335df9a51740631e75614c1279634f937d650a (diff) | |
| download | pandoc-f659644fccc5ee2eb21338ba0059da52a94fccbf.tar.gz | |
Use `mapM_` instead of `() <$ mapM` in one place.
| -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 34e98380e..003902b9b 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 |