module IHP.SEO.Sitemap.Routes where

import IHP.Prelude
import IHP.RouterPrelude
import IHP.SEO.Sitemap.Types

instance HasPath SitemapController where
    pathTo :: SitemapController -> Text
pathTo SitemapController
SitemapAction = Text
"/sitemap.xml"

instance CanRoute SitemapController where
    parseRoute' :: (?context::RequestContext) => Parser SitemapController
parseRoute' = do
        ByteString -> Parser ByteString
string ByteString
"/sitemap.xml"
        Parser ByteString ()
forall t. Chunk t => Parser t ()
endOfInput
        SitemapController -> Parser SitemapController
forall a. a -> Parser ByteString a
forall (f :: * -> *) a. Applicative f => a -> f a
pure SitemapController
SitemapAction