-- | match on any string
anySegment :: URLParser Text
anySegment = pToken (const "any string") Just
anySegment :: URLParser Text
anySegment = pToken (const "any string") Just
anySegment = pToken (const "any string") Just