]> git.wincent.com - docvim.git/blobdiff - lib/Docvim/Visitor/Section.hs
Use mapM_ rather than mapM in the Section visitor
[docvim.git] / 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