git.iko.soy/typeable/pandoc
on master help sign in
Use `mapM_` instead of `() <$ mapM` in one place.
f659644Artyom Kazak
src/Text/Pandoc/Readers/Org.hs+1−1
compare with master
unifiedsplit
@@ -274,7 +274,7 @@ optionalAttributes parser = try $
274parseBlockAttributes :: OrgParser ()
274parseBlockAttributes :: OrgParser ()
275parseBlockAttributes = do
275parseBlockAttributes = do
276 attrs <- many attribute
276 attrs <- many attribute
277− () <$ mapM (uncurry parseAndAddAttribute) attrs
277+ mapM_ (uncurry parseAndAddAttribute) attrs
278 where
278 where
279 attribute :: OrgParser (String, String)
279 attribute :: OrgParser (String, String)
280 attribute = try $ do
280 attribute = try $ do