diff options
Diffstat (limited to 'src/VeriFuzz/Fuzz.hs')
| -rw-r--r-- | src/VeriFuzz/Fuzz.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/VeriFuzz/Fuzz.hs b/src/VeriFuzz/Fuzz.hs index 6a0e0ad..77f728a 100644 --- a/src/VeriFuzz/Fuzz.hs +++ b/src/VeriFuzz/Fuzz.hs @@ -24,6 +24,7 @@ module VeriFuzz.Fuzz ) where +import Control.DeepSeq (force) import Control.Exception.Lifted (finally) import Control.Lens import Control.Monad (forM, void) @@ -73,8 +74,8 @@ runFuzz conf yos m = shelly $ runFuzz' conf yos m runFuzz' :: Monad m => Config -> Yosys -> (Config -> Fuzz m b) -> m b runFuzz' conf yos m = runReaderT (evalStateT (m conf) (FuzzReport [] [] [])) - (FuzzEnv (descriptionToSynth <$> conf ^. configSynthesisers) - (descriptionToSim <$> conf ^. configSimulators) + (FuzzEnv (force $ descriptionToSynth <$> conf ^. configSynthesisers) + (force $ descriptionToSim <$> conf ^. configSimulators) yos ) |