parseRecordsUntil :: RecordInfo -> Get [Record]
parseRecordsUntil recordInfo = do
  done <- isEmpty
  if done
    then return $ []
    else (:) <$> getRecord recordInfo <*> parseRecordsUntil recordInfo


-- | This binary instance is really slow because the YxdbFile type stores a list of records. Use the Conduit functions instead.
parseRecordsUntil :: RecordInfo -> Get [Record]
parseRecordsUntil recordInfo = do
  done <- isEmpty
  if done
    then return $ []
    else (:) <$> getRecord recordInfo <*> parseRecordsUntil recordInfo


-- | This binary instance is really slow because the YxdbFile type stores a list of records. Use the Conduit functions instead.
parseRecordsUntil recordInfo = do
  done <- isEmpty
  if done
    then return $ []
    else (:) <$> getRecord recordInfo <*> parseRecordsUntil recordInfo


-- | This binary instance is really slow because the YxdbFile type stores a list of records. Use the Conduit functions instead.