listUntilEnd

I often find myself needing this function:

```
listUntilEnd :: (Binary a) => Get [a]
listUntilEnd = do
done <- isEmpty
if done then return [] else do
next <- get
rest <- listUntilEnd
return (next:rest)
```

Commencez par le point d’entrée listUntilEnd proposé et examinez les combinateurs Get existants ainsi que l’organisation des tests du dépôt. Le travail sera terminé lorsque l’opération demandée sera intégrée de manière cohérente à la bibliothèque et que son comportement sera couvert par des tests.

Rédigé par le modèle d'indexation à partir du texte de l'issue.