diff options
author | Yann Herklotz <ymherklotz@gmail.com> | 2019-01-20 15:33:13 +0000 |
---|---|---|
committer | Yann Herklotz <ymherklotz@gmail.com> | 2019-01-20 15:33:17 +0000 |
commit | 99fe59abc997ba6f65896a2377881409e257faf9 (patch) | |
tree | b83a36efac0fd0fcdd3838f3321428d6bd2de6e3 /app | |
parent | 64a0ae3600073f486462b1d056409954634b0084 (diff) | |
download | verismith-99fe59abc997ba6f65896a2377881409e257faf9.tar.gz verismith-99fe59abc997ba6f65896a2377881409e257faf9.zip |
Rename moduleId to modId
Diffstat (limited to 'app')
-rw-r--r-- | app/Main.hs | 8 |
1 files changed, 5 insertions, 3 deletions
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)) |