readKeys :: IO (PrivateKey, PublicKey)
readKeys = do
  handle <- openFile attKeyFileName ReadMode
  priString <- hGetLine handle
  pubString <- hGetLine handle
  let pri :: PrivateKey
      pri = read priString
      pub :: PublicKey
      pub = read pubString
  hClose handle
  return (pri, pub)
  

--Error messages(only for debugging, at least for now)
readKeys :: IO (PrivateKey, PublicKey)
readKeys = do
  handle <- openFile attKeyFileName ReadMode
  priString <- hGetLine handle
  pubString <- hGetLine handle
  let pri :: PrivateKey
      pri = read priString
      pub :: PublicKey
      pub = read pubString
  hClose handle
  return (pri, pub)
  

--Error messages(only for debugging, at least for now)
readKeys = do
  handle <- openFile attKeyFileName ReadMode
  priString <- hGetLine handle
  pubString <- hGetLine handle
  let pri :: PrivateKey
      pri = read priString
      pub :: PublicKey
      pub = read pubString
  hClose handle
  return (pri, pub)
  

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