 return ∘ addSlashToEmpty ∘ B.concat ∘ concatMap (\x → [B.singleton '/', x]) ∘ reqPath ∘ fst
    where
        addSlashToEmpty x | x ≡ B.empty = B.singleton '/'
                          | otherwise   = x
{-# INLINEABLE pathString #-}

-- | Checks that the top elements of the stack path match the input, and removes them
--
--
pathString ∷ Route B.ByteString
pathString = get >>= return ∘ addSlashToEmpty ∘ B.concat ∘ concatMap (\x → [B.singleton '/', x]) ∘ reqPath ∘ fst
    where
        addSlashToEmpty x | x ≡ B.empty = B.singleton '/'
                          | otherwise   = x

pathString = get >>= return ∘ addSlashToEmpty ∘ B.concat ∘ concatMap (\x → [B.singleton '/', x]) ∘ reqPath ∘ fst
    where
        addSlashToEmpty x | x ≡ B.empty = B.singleton '/'
                          | otherwise   = x
