getYxdbRecordInfo :: Get RecordInfo
getYxdbRecordInfo = do
  text <- getRecordInfoText True
  let document = parseText_ def $ TL.fromStrict text
      cursor = fromDocument document
      recordInfos = parseXmlRecordInfo cursor
  case recordInfos of
    []   -> fail "No RecordInfo entries found"
    x:[] -> return x
    xs   -> fail "Too many RecordInfo entries found"
getYxdbRecordInfo :: Get RecordInfo
getYxdbRecordInfo = do
  text <- getRecordInfoText True
  let document = parseText_ def $ TL.fromStrict text
      cursor = fromDocument document
      recordInfos = parseXmlRecordInfo cursor
  case recordInfos of
    []   -> fail "No RecordInfo entries found"
    x:[] -> return x
    xs   -> fail "Too many RecordInfo entries found"
getYxdbRecordInfo = do
  text <- getRecordInfoText True
  let document = parseText_ def $ TL.fromStrict text
      cursor = fromDocument document
      recordInfos = parseXmlRecordInfo cursor
  case recordInfos of
    []   -> fail "No RecordInfo entries found"
    x:[] -> return x
    xs   -> fail "Too many RecordInfo entries found"