newTransfer :: Signature.KeyPair -> Text -> Text -> Int -> IO Transaction
newTransfer (pubKey, privKey) sender recipient amount = do
  currentTime <- getCurrentTime
  let operation = Transfer sender recipient amount currentTime
  signature <- T.sign privKey operation
  return $ T.Transaction
    pubKey
    signature
    operation
newTransfer :: Signature.KeyPair -> Text -> Text -> Int -> IO Transaction
newTransfer (pubKey, privKey) sender recipient amount = do
  currentTime <- getCurrentTime
  let operation = Transfer sender recipient amount currentTime
  signature <- T.sign privKey operation
  return $ T.Transaction
    pubKey
    signature
    operation
newTransfer (pubKey, privKey) sender recipient amount = do
  currentTime <- getCurrentTime
  let operation = Transfer sender recipient amount currentTime
  signature <- T.sign privKey operation
  return $ T.Transaction
    pubKey
    signature
    operation