yesod-core-1.4.32: test/YesodCoreTest/JsLoaderSites/Bottom.hs

{-# LANGUAGE QuasiQuotes, TypeFamilies, TemplateHaskell, MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE FlexibleInstances #-}
module YesodCoreTest.JsLoaderSites.Bottom
    ( B(..)
    , Widget
    , resourcesB -- avoid warning
    ) where

import Yesod.Core

data B = B
mkYesod "B" [parseRoutes|
/ BottomR GET
|]
instance Yesod B where
  jsLoader _ = BottomOfBody

getBottomR :: Handler Html
getBottomR = defaultLayout $ addScriptRemote "load.js"