test that govenor will reject fake stakes

2022-11-02 00:12:56 +08:00 · 2022-11-02 00:12:56 +08:00 · 996797995a
commit 996797995a
parent 7f80db7af5
3 changed files with 80 additions and 16 deletions
--- a/agora/Agora/Proposal/Time.hs
+++ b/agora/Agora/Proposal/Time.hs
@ -334,9 +334,7 @@ validateProposalStartingTime ::
 validateProposalStartingTime = phoistAcyclic $
  plam $ \(pto -> maxDuration) iv (pto -> st) ->
    pmaybe
-      # ptrace
-        "validateProposalStartingTime: unable to get current time"
-        (pconstant False)
+      # pconstant False
      # plam
        ( \ct ->
            let duration = pcurrentTimeDuration # ct