Use `mapM_` instead of `() <$ mapM` in one place.
commitf659644fccc5ee2eb21338ba0059da52a94fccbf
authorArtyom Kazak <yom@artyom.me>
dateSun 3 Aug 2014, 19:23 (12 years ago)
parent81335df
src/Text/Pandoc/Readers/Org.hs+1−1
@@ -274,7 +274,7 @@ optionalAttributes parser = try $
274274parseBlockAttributes :: OrgParser ()
275275parseBlockAttributes = do
276276 attrs <- many attribute
277− () <$ mapM (uncurry parseAndAddAttribute) attrs
277+ mapM_ (uncurry parseAndAddAttribute) attrs
278278 where
279279 attribute :: OrgParser (String, String)
280280 attribute = try $ do