Advertisement
Guest User

Untitled

a guest
Jun 30th, 2019
155
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
OCaml 0.24 KB | None | 0 0
  1. def reservoir(storage : Timestamp * Mutez * Contract(Unit) * Contract(Unit)) =
  2.   var (expiry,n,a,b) = storage;
  3.  
  4.   case
  5.   | now() > expiry -> transfer(balance(), a, ())
  6.   | balance () > n -> transfer(balance(), b, ())
  7.   end;
  8.  
  9.   storage
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement