fix #174

and also modify test cases to reflect real onchain environment
2022-09-15 19:50:34 +08:00 · 2022-09-15 19:50:34 +08:00 · c2fef7959f
commit c2fef7959f
parent c22c624e31
3 changed files with 77 additions and 68 deletions
--- a/agora-specs/Sample/Proposal/Create.hs
+++ b/agora-specs/Sample/Proposal/Create.hs
@ -290,10 +290,9 @@ createProposal ps = builder
    governorValue = sortValue $ gst <> minAda
    stakeValue =
      sortValue $
-        sortValue $
-          sst
-            <> Value.assetClassValue (untag governor.gtClassRef) (fromDiscrete stakedGTs)
-            <> minAda
+        sst
+          <> Value.assetClassValue (untag governor.gtClassRef) (fromDiscrete stakedGTs)
+          <> minAda
    proposalValue = sortValue $ pst <> minAda

    ---
@ -313,7 +312,12 @@ createProposal ps = builder
        , ---
          withSig
        , ---
-          mint pst
+          mint $
+            sortValue $
+              pst
+                <>
+                -- 0 Ada entry, see #174
+                Value.singleton "" "" 0
        , ---
          timeRange $ mkTimeRange ps
        , input $