diff options
| author | Yann Herklotz <git@ymhg.org> | 2019-05-09 14:36:28 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@ymhg.org> | 2019-05-09 14:36:28 +0100 |
| commit | 110d1392882cff9618997acad85af78017688c86 (patch) | |
| tree | 5982e3d54321f89af1d1b694ed7db35fca03858a /src/VeriFuzz/Fuzz.hs | |
| parent | fa2703bb983c2dd72fea3863980a7c589b57f0a4 (diff) | |
| download | verismith-110d1392882cff9618997acad85af78017688c86.tar.gz verismith-110d1392882cff9618997acad85af78017688c86.zip | |
Add NFData to force evaluation of config file
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 ) |