]> git.wincent.com - docvim.git/commitdiff
Use mapM_ rather than mapM in the Section visitor
authorGreg Hurrell <greg@hurrell.net>
Tue, 7 Jun 2016 16:39:59 +0000 (09:39 -0700)
committerGreg Hurrell <greg@hurrell.net>
Tue, 7 Jun 2016 16:39:59 +0000 (09:39 -0700)
To make it clear that we don't care about the results, only the state.

lib/Docvim/Visitor/Section.hs

index 7ca30ef2ae1378eb4a996428aedc849b81778d0a..6d3683a66073544c8d6069647c54c82f476eb9bf 100644 (file)
@@ -58,7 +58,7 @@ defaultSectionInfo = SectionInfo { _hasCommand = False
 --   - DON'T we have either? -> do nothing
 --
 getSectionInfo :: Node -> SectionInfo
-getSectionInfo n = execState (mapM check nodes) defaultSectionInfo
+getSectionInfo n = execState (mapM_ check nodes) defaultSectionInfo
   where
     nodes = n ^.. cosmosOf uniplate
     check (CommandAnnotation {}) = hasCommand .= True