diff options
Diffstat (limited to 'tests/Unit.hs')
-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 976f23b..318150b 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 . _Assign . contAssignExpr + let y = head . reverse $ x ^.. getSourceText . traverse . getDescription . moduleItems . traverse . _ContAssign . contAssignExpr print $ transformOf traverseExpr trans y |