@@ -721,7 +721,7 @@ obeliskRouteEncoder appRouteSegment = pathComponentEncoder $ \r ->
721721obeliskRouteSegment :: forall check parse appRoute a.
722722 (MonadError Text check, MonadError Text parse)
723723 => ObeliskRoute appRoute a
724− -> (forall a. appRoute a -> SegmentResult check parse a)
724+ -> (forall a'. appRoute a' -> SegmentResult check parse a')
725725 -> SegmentResult check parse a
726726obeliskRouteSegment r appRouteSegment = case r of
727727 ObeliskRoute_App appRoute -> appRouteSegment appRoute