-> return []
Just accept
-> case parseStr mimeTypeListP accept of
- (Success xs, _) -> return xs
- _ -> abort BadRequest []
- (Just $ "Unparsable Accept: " ++ accept)
+ (# Success xs, _ #) -> return xs
+ (# _ , _ #) -> abort BadRequest []
+ (Just $ "Unparsable Accept: " ++ accept)
-- |Get a list of @(contentCoding, qvalue)@ enumerated on header
-- \"Accept-Encoding\". The list is sorted in descending order by
-> return [("identity", Nothing)]
Just accEnc
-> case parseStr acceptEncodingListP accEnc of
- (Success x, _) -> return $ reverse $ sortBy orderAcceptEncodings x
- _ -> abort BadRequest []
- (Just $ "Unparsable Accept-Encoding: " ++ accEnc)
+ (# Success x, _ #) -> return $ reverse $ sortBy orderAcceptEncodings x
+ (# _ , _ #) -> abort BadRequest []
+ (Just $ "Unparsable Accept-Encoding: " ++ accEnc)
-- |Check whether a given content-coding is acceptable.
isEncodingAcceptable :: String -> Resource Bool
-> return Nothing
Just cType
-> case parseStr mimeTypeP cType of
- (Success t, _) -> return $ Just t
- _ -> abort BadRequest []
- (Just $ "Unparsable Content-Type: " ++ cType)
+ (# Success t, _ #) -> return $ Just t
+ (# _ , _ #) -> abort BadRequest []
+ (Just $ "Unparsable Content-Type: " ++ cType)
{- ExaminingRequest 時に使用するアクション群 -}
Nothing -> return ()
Just "*" -> return ()
Just list -> case parseStr eTagListP list of
- (Success tags, _)
+ (# Success tags, _ #)
-- tags の中に一致するものが無ければ
-- PreconditionFailed で終了。
-> when (not $ any (== tag) tags)
$ abort PreconditionFailed []
$! Just ("The entity tag doesn't match: " ++ list)
- _ -> abort BadRequest [] $! Just ("Unparsable If-Match: " ++ fromJust ifMatch)
+ (# _, _ #)
+ -> abort BadRequest [] $! Just ("Unparsable If-Match: " ++ fromJust ifMatch)
let statusForNoneMatch = if method == GET || method == HEAD then
NotModified
Nothing -> return ()
Just "*" -> abort statusForNoneMatch [] $! Just ("The entity tag matches: *")
Just list -> case parseStr eTagListP list of
- (Success tags, _)
+ (# Success tags, _ #)
-> when (any (== tag) tags)
$ abort statusForNoneMatch [] $! Just ("The entity tag matches: " ++ list)
- _ -> abort BadRequest [] $! Just ("Unparsable If-None-Match: " ++ list)
+ (# _, _ #)
+ -> abort BadRequest [] $! Just ("Unparsable If-None-Match: " ++ list)
driftTo GettingBody