From 957796ae792505626423023ba7e41efb37446d1a Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Thu, 27 Dec 2018 10:37:33 +0100 Subject: Fix tests with new changes --- tests/Unit.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests/Unit.hs') 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 -- cgit