..
This commit is contained in:
parent
e39eaeef92
commit
a2d200c182
@ -62,12 +62,6 @@ mkYesod "RoutedApp" [parseRoutes|
|
|||||||
/get-integer IntegerR GET
|
/get-integer IntegerR GET
|
||||||
|]
|
|]
|
||||||
|
|
||||||
-- data ParamaterizedApp = ParamaterizedApp { parameterizedAppInteger :: Integer }
|
|
||||||
|
|
||||||
-- mkYesod "ParamaterizedApp" [parseRoutes|
|
|
||||||
-- /get-integer ParameterizedGetInteger GET
|
|
||||||
-- |]
|
|
||||||
|
|
||||||
main :: IO ()
|
main :: IO ()
|
||||||
main = hspec $ do
|
main = hspec $ do
|
||||||
describe "CSS selector parsing" $ do
|
describe "CSS selector parsing" $ do
|
||||||
@ -590,9 +584,6 @@ cookieApp = liteApp $ do
|
|||||||
instance Yesod RoutedApp where
|
instance Yesod RoutedApp where
|
||||||
yesodMiddleware = defaultYesodMiddleware . defaultCsrfMiddleware
|
yesodMiddleware = defaultYesodMiddleware . defaultCsrfMiddleware
|
||||||
|
|
||||||
-- instance Yesod ParameterizedApp where
|
|
||||||
-- yesodMiddleware = defaultYesodMiddleware . defaultCsrfMiddleware
|
|
||||||
|
|
||||||
getHomeR :: Handler Html
|
getHomeR :: Handler Html
|
||||||
getHomeR = defaultLayout
|
getHomeR = defaultLayout
|
||||||
[whamlet|
|
[whamlet|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user