28 lines
588 B
Haskell
28 lines
588 B
Haskell
{-# LANGUAGE
|
|
TypeFamilies, QuasiQuotes, TemplateHaskell, MultiParamTypeClasses
|
|
, OverloadedStrings, StandaloneDeriving, FlexibleInstances
|
|
#-}
|
|
module YesodCoreTest.ParameterizedSite.Compat
|
|
( Compat (..)
|
|
) where
|
|
|
|
import Yesod.Core
|
|
|
|
-- | Parameterized without constraints, and we call mkYesod without type vars,
|
|
-- like people used to do before the last 3 commits
|
|
data Compat a b = Compat a b
|
|
|
|
mkYesod "Compat" [parseRoutes|
|
|
/ HomeR GET
|
|
|]
|
|
|
|
instance Yesod (Compat a b)
|
|
|
|
getHomeR :: Handler a b Html
|
|
getHomeR = defaultLayout
|
|
[whamlet|
|
|
<p>
|
|
Stub
|
|
|]
|
|
|