Routes.hs 327 B

12345678910111213141516
  1. {-# LANGUAGE MultiParamTypeClasses #-}
  2. {-# LANGUAGE QuasiQuotes #-}
  3. {-# LANGUAGE TemplateHaskell #-}
  4. {-# LANGUAGE TypeFamilies #-}
  5. module Routes where
  6. import Yesod.Core
  7. data App = App
  8. mkYesodData "App" [parseRoutes|
  9. / HomeR GET
  10. /some/thing SomethingR GET !CACHE
  11. /appcache AppCacheR GET
  12. |]