From de27065dba001cadde1d73eef92f25e3dd2fa3d9 Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Wed, 10 Feb 2021 17:10:57 -0500 Subject: [PATCH] use runIdentity for traverseFiles --- src/Convert/Traverse.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/Convert/Traverse.hs b/src/Convert/Traverse.hs index 78ab6a4..541848c 100644 --- a/src/Convert/Traverse.hs +++ b/src/Convert/Traverse.hs @@ -101,7 +101,6 @@ module Convert.Traverse ) where import Data.Functor.Identity (Identity, runIdentity) -import Control.Monad.State.Strict import Control.Monad.Writer.Strict import Language.SystemVerilog.AST @@ -1120,5 +1119,5 @@ traverseFiles -> (w -> Mapper AST) -> Mapper [AST] traverseFiles fileCollectorM fileMapper files = - evalState (traverseFilesM fileCollectorM fileMapperM files) () + runIdentity (traverseFilesM fileCollectorM fileMapperM files) where fileMapperM = (\w -> return . fileMapper w)