mkSignedTPMQuote :: TPMRequest -> Nonce -> Quote
mkSignedTPMQuote mask nonce =
    let pcrs' = pcrSelect mask
        quote = (pcrs', nonce) in
      case sign Nothing md5 pri $ tPack quote of
         Left err -> error $ show err
         Right signature -> (quote, signature) 
                 
                            
  -- PCR primitives
mkSignedTPMQuote :: TPMRequest -> Nonce -> Quote
mkSignedTPMQuote mask nonce =
    let pcrs' = pcrSelect mask
        quote = (pcrs', nonce) in
      case sign Nothing md5 pri $ tPack quote of
         Left err -> error $ show err
         Right signature -> (quote, signature) 
                 
                            
  -- PCR primitives
mkSignedTPMQuote mask nonce =
    let pcrs' = pcrSelect mask
        quote = (pcrs', nonce) in
      case sign Nothing md5 pri $ tPack quote of
         Left err -> error $ show err
         Right signature -> (quote, signature) 
                 
                            
  -- PCR primitives