-- | True if any fields have associated variable data in the variable data portion of the record.
hasVariableData :: RecordInfo -> Bool
hasVariableData (RecordInfo recordInfo) =
  let fieldHasVariableData field =
          case field ^. fieldType of
            FTVString  -> True
            FTVWString -> True
            FTBlob     -> True
            _          -> False
  in Prelude.any fieldHasVariableData recordInfo
hasVariableData :: RecordInfo -> Bool
hasVariableData (RecordInfo recordInfo) =
  let fieldHasVariableData field =
          case field ^. fieldType of
            FTVString  -> True
            FTVWString -> True
            FTBlob     -> True
            _          -> False
  in Prelude.any fieldHasVariableData recordInfo
hasVariableData (RecordInfo recordInfo) =
  let fieldHasVariableData field =
          case field ^. fieldType of
            FTVString  -> True
            FTVWString -> True
            FTBlob     -> True
            _          -> False
  in Prelude.any fieldHasVariableData recordInfo