21 lines
474 B
Haskell
21 lines
474 B
Haskell
{-# 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"
|