--- |'Parser' for a list of 'ETag's.
-eTagList ∷ Parser [ETag]
-{-# INLINEABLE eTagList #-}
-eTagList = do xs ← listOf eTag
- when (null xs) $
- fail "empty list of ETags"
- return xs
+instance Parsable ByteString [ETag] where
+ {-# INLINEABLE parser #-}
+ parser = do xs ← listOf parser
+ when (null xs) $
+ fail "empty list of ETags"
+ return xs