import Data.Data
import Data.Monoid.Unicode
import Language.Haskell.TH.Syntax
+import Network.HTTP.Lucu.OrphanInstances ()
import Network.HTTP.Lucu.Parser
import Network.HTTP.Lucu.Parser.Http hiding (token)
import Network.HTTP.Lucu.Utils
-- |An entity tag consists of a weakness flag and an opaque string.
data ETag = ETag {
- -- |The weakness flag. Weak tags looks like W\/\"blahblah\" and
- -- strong tags are like \"blahblah\". See:
+ -- |The weakness flag. Weak tags looks like @W\/\"blahblah\"@
+ -- and strong tags are like @\"blahblah\"@. See:
-- <http://www.w3.org/Protocols/rfc2616/rfc2616-sec13.html#sec13.3.3>
etagIsWeak ∷ !Bool
-- |An opaque string. Only characters from 0x20 (sp) to 0x7e (~)
lift (ETag {..})
= [| ETag {
etagIsWeak = $(lift etagIsWeak)
- , etagToken = $(liftAscii etagToken)
+ , etagToken = $(lift etagToken )
}
|]