luke
/
sv2v
mirror of https://github.com/zachjs/sv2v.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

use runIdentity for traverseFiles

This commit is contained in:
Zachary Snow 2021-02-10 17:10:57 -05:00
parent 87ea9de853
commit de27065dba
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Convert/Traverse.hs
View File

@ -101,7 +101,6 @@ module Convert.Traverse
) where ) where
import Data.Functor.Identity (Identity, runIdentity) import Data.Functor.Identity (Identity, runIdentity)
import Control.Monad.State.Strict
import Control.Monad.Writer.Strict import Control.Monad.Writer.Strict
import Language.SystemVerilog.AST import Language.SystemVerilog.AST
@ -1120,5 +1119,5 @@ traverseFiles
-> (w -> Mapper AST) -> (w -> Mapper AST)
-> Mapper [AST] -> Mapper [AST]
traverseFiles fileCollectorM fileMapper files = traverseFiles fileCollectorM fileMapper files =
evalState (traverseFilesM fileCollectorM fileMapperM files) () runIdentity (traverseFilesM fileCollectorM fileMapperM files)
where fileMapperM = (\w -> return . fileMapper w) where fileMapperM = (\w -> return . fileMapper w)