sendResponse :: LibXenVChan -> Response-> IO ()   
sendResponse chan resp = do
  putStrLn $ "Attester Sending: " ++ show (Attestation resp) ++ "\n"
  send chan $ Attestation resp
  return () 
sendResponse :: LibXenVChan -> Response-> IO ()
sendResponse chan resp = do
  putStrLn $ "Attester Sending: " ++ show (Attestation resp) ++ "\n"
  send chan $ Attestation resp
  return () 
sendResponse chan resp = do
  putStrLn $ "Attester Sending: " ++ show (Attestation resp) ++ "\n"
  send chan $ Attestation resp
  return () 