From 110d1392882cff9618997acad85af78017688c86 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Thu, 9 May 2019 14:36:28 +0100 Subject: Add NFData to force evaluation of config file --- src/VeriFuzz/Fuzz.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/VeriFuzz/Fuzz.hs') 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 ) -- cgit