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

Pass hierarchical route arguments to subsites

Browse Source
This commit is contained in:
Anupam Jain 2016-01-13 11:00:09 +05:30
parent d6cd13a423
commit 9859fe1ddb
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,9 +176,10 @@ mkDispatchClause MkDispatchSettings {..} resources = do
subDispatcherE <- mdsSubDispatcher subDispatcherE <- mdsSubDispatcher
runHandlerE <- mdsRunHandler runHandlerE <- mdsRunHandler
sub <- newName "sub" sub <- newName "sub"
let allDyns = extraParams ++ dyns
sroute <- newName "sroute" 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) allDyns)
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 = LamE [VarP sroute] $ foldr AppE (AppE route' $ VarE sroute) extraCons route = LamE [VarP sroute] $ foldr AppE (AppE route' $ VarE sroute) extraCons