m = get >>= guard ∘ (≡) m ∘ reqMethod ∘ fst
{-# INLINE method #-}

-- | Returns path stack
pathList ∷ Route [B.ByteString]
pathList = get >>= r
method ∷ HTTPMethod -- ^ HTTP method
       → Route ()
method m = get >>= guard ∘ (≡) m ∘ reqMethod ∘ fst
method m = get >>= guard ∘ (≡) m ∘ reqMethod ∘ fst