getCsvCreditDebit :: T.Text -> T.Text -> MyRecord -> T.Text
getCsvCreditDebit creditColumn debitColumn record =
  if T.any isDigit creditValue 
  then "-" <> creditValue 
  else debitValue where
  creditValue = getCsv creditColumn record
  debitValue = getCsv debitColumn record
getCsvCreditDebit :: T.Text -> T.Text -> MyRecord -> T.Text
getCsvCreditDebit creditColumn debitColumn record =
  if T.any isDigit creditValue 
  then "-" <> creditValue 
  else debitValue where
  creditValue = getCsv creditColumn record
  debitValue = getCsv debitColumn record
getCsvCreditDebit creditColumn debitColumn record =
  if T.any isDigit creditValue 
  then "-" <> creditValue 
  else debitValue where
  creditValue = getCsv creditColumn record
  debitValue = getCsv debitColumn record