aboutsummaryrefslogtreecommitdiffstats
path: root/src/VeriFuzz.hs
diff options
context:
space:
mode:
authorYann Herklotz <git@ymhg.org>2019-04-14 20:22:34 +0100
committerYann Herklotz <git@ymhg.org>2019-04-14 20:22:34 +0100
commit8125f2c36d6306e20ce78f4056ef1b2fb6de61a2 (patch)
tree67ca1b50ef43756a2e2283096866d044ac29891a /src/VeriFuzz.hs
parentc17753e6f43ecb46dba09db4d655cae5dd8e7b5c (diff)
downloadverismith-8125f2c36d6306e20ce78f4056ef1b2fb6de61a2.tar.gz
verismith-8125f2c36d6306e20ce78f4056ef1b2fb6de61a2.zip
Changes to general types
Diffstat (limited to 'src/VeriFuzz.hs')
-rw-r--r--src/VeriFuzz.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/VeriFuzz.hs b/src/VeriFuzz.hs
index 9486537..88b0f63 100644
--- a/src/VeriFuzz.hs
+++ b/src/VeriFuzz.hs
@@ -55,7 +55,7 @@ generateByteString n = do
return $ randomByteString gen n []
makeSrcInfo :: ModDecl -> SourceInfo
-makeSrcInfo m = SourceInfo (m ^. modId . getIdentifier) (Verilog [m])
+makeSrcInfo m = SourceInfo (getIdentifier $ m ^. modId) (Verilog [m])
-- | Draw a randomly generated DAG to a dot file and compile it to a png so it
-- can be seen.