Use mapM_ instead of () <$ mapM in one place.

2026-09-24 00:15:44 +00:00 · 2014-08-04 19:41:37 +04:00
parent 81335df9a5
commit f659644fcc
1 changed files with 1 additions and 1 deletions
@@ -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