{-# LANGUAGE QuasiQuotes, TemplateHaskell, TypeFamilies, MultiParamTypeClasses, OverloadedStrings #-}
module YesodCoreTest.WaiSubsiteSub where

import Yesod.Core

data NonWaiSubsite = NonWaiSubsite

mkYesodSubData "NonWaiSubsite" [parseRoutes|
/ SubHomeR GET
/waisub WaiSubsite2R WaiSubsite getApp
|]

getSubHomeR :: HandlerT NonWaiSubsite (HandlerT parent IO) ()
getSubHomeR = return ()