import qualified Data.Ascii as A
import Data.Attoparsec.Char8
import Data.Monoid.Unicode
+import Network.HTTP.Lucu.Parser
import Network.HTTP.Lucu.Parser.Http hiding (token)
import Network.HTTP.Lucu.Utils
import Prelude.Unicode
parseETag ∷ Ascii → ETag
{-# INLINEABLE parseETag #-}
parseETag str
- = case parseOnly p $ A.toByteString str of
+ = case parseOnly (finishOff eTag) $ A.toByteString str of
Right et → et
Left err → error ("unparsable ETag: " ⧺ A.toString str ⧺ ": " ⧺ err)
- where
- p ∷ Parser ETag
- {-# INLINE p #-}
- p = do et ← eTag
- endOfInput
- return et
-- |This is equivalent to @'ETag' 'False'@. If you want to generate an
-- ETag from a file, try using