fix tests

2022-11-25 18:42:39 +08:00 · 2022-11-25 18:42:39 +08:00 · 3d0e42a844
commit 3d0e42a844
parent edb982abaa
2 changed files with 6 additions and 4 deletions
--- a/agora-specs/Sample/Proposal/Unlock.hs
+++ b/agora-specs/Sample/Proposal/Unlock.hs
@ -310,9 +310,11 @@ unlock ps = builder
    removeLocks v c =
      filter $ \(ProposalLock pid action) ->
        pid == defProposalId
-          && case action of
-            Voted _ _ -> v
-            _ -> c
+          && not
+            ( case action of
+                Voted _ _ -> v
+                _ -> c
+            )

    stakeOutputDatum =
      stakeInputDatum