getOneBlockCalgaryRecords :: CalgaryRecordInfo -> Get (V.Vector Record)
getOneBlockCalgaryRecords recordInfo = do
  (Just (Block block)) <- getOneBlock
  let records = runGet (getCalgaryRecords recordInfo ) block
  return records
getOneBlockCalgaryRecords :: CalgaryRecordInfo -> Get (V.Vector Record)
getOneBlockCalgaryRecords recordInfo = do
  (Just (Block block)) <- getOneBlock
  let records = runGet (getCalgaryRecords recordInfo ) block
  return records
getOneBlockCalgaryRecords recordInfo = do
  (Just (Block block)) <- getOneBlock
  let records = runGet (getCalgaryRecords recordInfo ) block
  return records