Guest User

Untitled

a guest
Feb 2nd, 2019
29
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. let (op,docAddress) =
  2. Contract.create
  3. ~storage: (fileHash,userAddress,Set,Set)
  4. ~manager:manager
  5. ~spendable:false
  6. ~delegatable:false
  7. ~delegate:(None)
  8. ~amount:0tz (contract Document)
  9. in
  10.  
  11. let userDocuments = match Map.find userAddress storage.usersDocuments with
  12. | None -> Set
  13. | Some docSotrage -> docSotrage
  14. in
  15. let userDocuments = Set.add docAddress userDocuments in
RAW Paste Data