(**************************************************************************)
(*                                                                        *)
(*    Copyright (c) 2014 - 2016.                                          *)
(*    Dynamic Ledger Solutions, Inc. <contact@tezos.com>                  *)
(*                                                                        *)
(*    All rights reserved. No warranty, explicit or implicit, provided.   *)
(*                                                                        *)
(**************************************************************************)

(* Tezos Protocol Implementation - Low level Repr. of Managers' keys *)

type manager_key =
  | Hash of Ed25519.Public_key_hash.t
  | Public_key of Ed25519.Public_key.t

type t = manager_key

let hash hash = Hash hash
let public_key hash = Public_key hash

open Data_encoding

let hash_encoding =
  (obj1
    (req "hash" Ed25519.Public_key_hash.encoding)
  )

let pubkey_encoding =
  (obj1
    (req "public_key" Ed25519.Public_key.encoding)
  )

let hash_case tag =
  case ~tag hash_encoding
  (function
    | Hash hash -> Some hash
    | _ -> None)
  (fun hash -> Hash hash)

let pubkey_case tag =
  case ~tag pubkey_encoding
  (function
    | Public_key hash -> Some hash
    | _ -> None)
  (fun hash -> Public_key hash)


let encoding =
  union [
    hash_case 0 ;
    pubkey_case 1 ;
  ]