haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Allow subsites within hierarchical routes

Browse Source
This commit is contained in:
Anupam Jain 2016-01-13 10:47:50 +05:30
parent d4a907d4e8
commit a1df470d01
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod-core/Yesod/Routes/TH/Dispatch.hs
View File

@ -176,11 +176,12 @@ mkDispatchClause MkDispatchSettings {..} resources = do
subDispatcherE <- mdsSubDispatcher subDispatcherE <- mdsSubDispatcher
runHandlerE <- mdsRunHandler runHandlerE <- mdsRunHandler
sub <- newName "sub" sub <- newName "sub"
sroute <- newName "sroute"
let sub2 = LamE [VarP sub] let sub2 = LamE [VarP sub]
(foldl' (\a b -> a `AppE` b) (VarE (mkName getSub) `AppE` VarE sub) dyns) (foldl' (\a b -> a `AppE` b) (VarE (mkName getSub) `AppE` VarE sub) dyns)
let reqExp' = setPathInfoE `AppE` VarE restPath `AppE` reqExp let reqExp' = setPathInfoE `AppE` VarE restPath `AppE` reqExp
route' = foldl' AppE (ConE (mkName name)) dyns route' = foldl' AppE (ConE (mkName name)) dyns
route = foldr AppE route' extraCons route = LamE [VarP sroute] $ foldr AppE (AppE route' $ VarE sroute) extraCons
exp = subDispatcherE exp = subDispatcherE
`AppE` runHandlerE `AppE` runHandlerE
`AppE` sub2 `AppE` sub2