From 99fe59abc997ba6f65896a2377881409e257faf9 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Sun, 20 Jan 2019 15:33:13 +0000 Subject: Rename moduleId to modId --- src/VeriFuzz/Simulator.hs | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'src/VeriFuzz/Simulator.hs') diff --git a/src/VeriFuzz/Simulator.hs b/src/VeriFuzz/Simulator.hs index 24365fd..a84cd5f 100644 --- a/src/VeriFuzz/Simulator.hs +++ b/src/VeriFuzz/Simulator.hs @@ -11,23 +11,31 @@ Simulator module. -} module VeriFuzz.Simulator - ( module VeriFuzz.Simulator.General + ( SimMatrix + , module VeriFuzz.Simulator.General , module VeriFuzz.Simulator.Yosys , module VeriFuzz.Simulator.Xst , module VeriFuzz.Simulator.Icarus ) where -import Control.Monad.Trans.Reader (ReaderT) +import Control.Monad.Trans.Reader +import Prelude hiding (FilePath) import Shelly import VeriFuzz.Simulator.General import VeriFuzz.Simulator.Icarus import VeriFuzz.Simulator.Xst import VeriFuzz.Simulator.Yosys +-- | Environment used to run the main data SimMatrix = SimMatrix { yosys :: Yosys , xst :: Maybe Xst , icarus :: Maybe Icarus } -type SimEnv = ReaderT SimMatrix Sh +type SimEnv = ReaderT SimMatrix IO + +runAll :: SimEnv () +runAll = do + val <- asks xst + shelly $ run_ "echo" ["Hello World"] -- cgit