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 --- app/Main.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'app') diff --git a/app/Main.hs b/app/Main.hs index 632e0f1..c13d4c2 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -4,7 +4,9 @@ import Control.Lens import qualified Crypto.Random.DRBG as C import Data.ByteString (ByteString) import qualified Data.Graph.Inductive as G +import Data.Text (Text) import Numeric (showHex) +import Prelude hiding (FilePath) import Shelly import qualified Test.QuickCheck as QC import VeriFuzz @@ -31,8 +33,8 @@ runSimulation = do val <- shelly $ runSim defaultIcarus (initMod circ) rand putStrLn $ showHex (abs val) "" -runEquivalence :: IO () -runEquivalence = do +runEquivalence :: Text -> IO () +runEquivalence t = do gr <- QC.generate $ rDups <$> QC.resize 100 (randomDAG :: QC.Gen (G.Gr Gate ())) let circ = initMod @@ -41,7 +43,7 @@ runEquivalence = do ^.. getVerilogSrc . traverse . getDescription - shelly . verbosely $ runEquiv defaultYosys defaultYosys (Just defaultXst) circ + shelly . chdir_p (fromText "equiv" fromText t) . verbosely $ runEquiv defaultYosys defaultYosys (Just defaultXst) circ main :: IO () --main = sample (arbitrary :: Gen (Circuit Input)) -- cgit