24 lines
522 B
Haskell
24 lines
522 B
Haskell
{-# LANGUAGE QuasiQuotes #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
module Hierarchy (hierarchy) where
|
|
|
|
import Test.Hspec.Monadic
|
|
import Test.Hspec.HUnit ()
|
|
import Yesod.Routes.Parse
|
|
import Yesod.Routes.TH
|
|
import Yesod.Routes.Class
|
|
import Language.Haskell.TH.Syntax
|
|
|
|
data Hierarchy = Hierarchy
|
|
|
|
mkRenderRouteInstance (ConT ''Hierarchy) $ map (fmap parseType) [parseRoutes|
|
|
/ HomeR GET
|
|
/admin/#Int AdminR:
|
|
/ AdminRootR GET
|
|
/login LoginR GET POST
|
|
|]
|
|
|
|
hierarchy :: Specs
|
|
hierarchy = return ()
|