aboutsummaryrefslogtreecommitdiffstats
path: root/src/VeriFuzz/Sim
diff options
context:
space:
mode:
authorYann Herklotz <git@ymhg.org>2019-05-13 20:50:01 +0100
committerYann Herklotz <git@ymhg.org>2019-05-13 20:50:01 +0100
commit76e9b994258d9af87868ba9f420db4ee1c29de67 (patch)
treef11b3729582a21ea31555a9106d2190e180e2ce9 /src/VeriFuzz/Sim
parent3ddfc0111566113b3ec15725cb5ced6dea531a3a (diff)
downloadverismith-76e9b994258d9af87868ba9f420db4ee1c29de67.tar.gz
verismith-76e9b994258d9af87868ba9f420db4ee1c29de67.zip
Format with brittany
Diffstat (limited to 'src/VeriFuzz/Sim')
-rw-r--r--src/VeriFuzz/Sim/Yosys.hs15
1 files changed, 5 insertions, 10 deletions
diff --git a/src/VeriFuzz/Sim/Yosys.hs b/src/VeriFuzz/Sim/Yosys.hs
index 8552d89..3081a65 100644
--- a/src/VeriFuzz/Sim/Yosys.hs
+++ b/src/VeriFuzz/Sim/Yosys.hs
@@ -99,15 +99,10 @@ runEquivYosys yosys sim1 sim2 srcInfo = do
logger "Yosys: equivalence check"
run_ (yosysPath yosys) [toTextIgnore checkFile]
logger "Yosys: equivalence done"
- where
- checkFile =
- fromText [st|test.#{toText sim1}.#{toText sim2}.ys|]
+ where checkFile = fromText [st|test.#{toText sim1}.#{toText sim2}.ys|]
-runEquiv :: (Synthesiser a, Synthesiser b)
- => a
- -> b
- -> SourceInfo
- -> ResultSh ()
+runEquiv
+ :: (Synthesiser a, Synthesiser b) => a -> b -> SourceInfo -> ResultSh ()
runEquiv sim1 sim2 srcInfo = do
dir <- liftSh pwd
liftSh $ do
@@ -129,5 +124,5 @@ runEquiv sim1 sim2 srcInfo = do
2 -> ResultT . return $ Fail EquivFail
124 -> ResultT . return $ Fail TimeoutError
_ -> ResultT . return $ Fail EquivError
- where
- exe dir name e = void . errExit False . logCommand dir name . timeout e
+ where
+ exe dir name e = void . errExit False . logCommand dir name . timeout e