16 lines
327 B
Haskell
16 lines
327 B
Haskell
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
module Routes where
|
|
|
|
import Yesod.Core
|
|
|
|
data App = App
|
|
|
|
mkYesodData "App" [parseRoutes|
|
|
/ HomeR GET
|
|
/some/thing SomethingR GET !CACHE
|
|
/appcache AppCacheR GET
|
|
|]
|