ofxPayee :: OfxIn -> Text
ofxPayee ofxIn = case OFX.txPayeeInfo . _ofxTxn $ ofxIn of
  Nothing -> ""
  Just (Left str) -> X.pack str
  Just (Right pye) -> X.pack . OFX.peNAME $ pye



-- * Command-line program

-- | Reads OFX and Copper files, and produces a result.  Returns
-- result; not destructive.
ofxPayee :: OfxIn -> Text
ofxPayee ofxIn = case OFX.txPayeeInfo . _ofxTxn $ ofxIn of
  Nothing -> ""
  Just (Left str) -> X.pack str
  Just (Right pye) -> X.pack . OFX.peNAME $ pye



-- * Command-line program

-- | Reads OFX and Copper files, and produces a result.  Returns
-- result; not destructive.
ofxPayee ofxIn = case OFX.txPayeeInfo . _ofxTxn $ ofxIn of
  Nothing -> ""
  Just (Left str) -> X.pack str
  Just (Right pye) -> X.pack . OFX.peNAME $ pye



-- * Command-line program

-- | Reads OFX and Copper files, and produces a result.  Returns
-- result; not destructive.