diff options
| author | Yann Herklotz <ymherklotz@gmail.com> | 2018-12-27 10:37:33 +0100 |
|---|---|---|
| committer | Yann Herklotz <ymherklotz@gmail.com> | 2018-12-27 10:37:33 +0100 |
| commit | 957796ae792505626423023ba7e41efb37446d1a (patch) | |
| tree | a2eac183aec33f0cdc58f91979d57eea0d4c4fa5 /tests | |
| parent | 7e75a64512de5af5d23b13ac898cdf00377289d8 (diff) | |
| download | verismith-957796ae792505626423023ba7e41efb37446d1a.tar.gz verismith-957796ae792505626423023ba7e41efb37446d1a.zip | |
Fix tests with new changes
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Unit.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Unit.hs b/tests/Unit.hs index 318150b..c2ee27a 100644 --- a/tests/Unit.hs +++ b/tests/Unit.hs @@ -47,5 +47,5 @@ runMain = do -- T.putStrLn $ generate gr --g <- QC.generate (QC.arbitrary :: QC.Gen SourceText) let x = generateAST $ Circuit gr - let y = head . reverse $ x ^.. getSourceText . traverse . getDescription . moduleItems . traverse . _ContAssign . contAssignExpr + let y = head . reverse $ x ^.. getSourceText . traverse . getDescription . moduleItems . traverse . _ModCA . contAssignExpr print $ transformOf traverseExpr trans y |