--cons (bit 2) empty


readPubCA :: IO PubKey
readPubCA = do
  handle <- openFile exportCAPubFileName ReadMode
  pubKeyString <- hGetLine handle
  let pubKey :: PubKey
      pubKey = read pubKeyString
  hClose handle
  return pubKey

--Error messages(only for debugging, at least for now)
readPubCA :: IO PubKey
readPubCA = do
  handle <- openFile exportCAPubFileName ReadMode
  pubKeyString <- hGetLine handle
  let pubKey :: PubKey
      pubKey = read pubKeyString
  hClose handle
  return pubKey

--Error messages(only for debugging, at least for now)
readPubCA = do
  handle <- openFile exportCAPubFileName ReadMode
  pubKeyString <- hGetLine handle
  let pubKey :: PubKey
      pubKey = read pubKeyString
  hClose handle
  return pubKey

--Error messages(only for debugging, at least for now)