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

Get it to build again

Browse Source
This commit is contained in:
Michael Snoyman 2012-01-03 08:37:23 +02:00
parent 666e242ee9
commit a14851d956
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-routes/Yesod/Routes/TH/Dispatch.hs
View File

@ -17,7 +17,9 @@ import Yesod.Routes.Class
mkDispatchClause :: [Resource] mkDispatchClause :: [Resource]
-> Q Clause -> Q Clause
mkDispatchClause ress = undefined mkDispatchClause ress = do
u <- [|error "mkDispatchClause"|]
return $ Clause [] (NormalB u) []
{- FIXME {- FIXME
let routes = fmap ListE $ mapM toRoute ress let routes = fmap ListE $ mapM toRoute ress
sub <- newName "sub" sub <- newName "sub"
@ -56,7 +58,6 @@ mkTsPattern pieces mmulti = do
go Dynamic{} = do go Dynamic{} = do
dyn <- newName "dyn" dyn <- newName "dyn"
return (Just dyn, VarP dyn) return (Just dyn, VarP dyn)
-}
-- | Convert a 'Piece' into a 'D.Piece'. -- | Convert a 'Piece' into a 'D.Piece'.
toPiece :: Piece -> Q Exp toPiece :: Piece -> Q Exp
@ -96,3 +97,4 @@ toRoute res = do
body body
[|D.Route $(ps) $(m) $(return func)|] [|D.Route $(ps) $(m) $(return func)|]
Subsite _ func -> [|D.Route $(ps) $(m) $ $(toApp) $(return $ VarE $ mkName $ "handle" ++ resourceName res)|] -- FIXME Subsite _ func -> [|D.Route $(ps) $(m) $ $(toApp) $(return $ VarE $ mkName $ "handle" ++ resourceName res)|] -- FIXME
-}

3
yesod-routes/yesod-routes.cabal
View File

@ -22,6 +22,9 @@ library
exposed-modules: Yesod.Routes.Dispatch exposed-modules: Yesod.Routes.Dispatch
Yesod.Routes.TH Yesod.Routes.TH
Yesod.Routes.Class Yesod.Routes.Class
other-modules: Yesod.Routes.TH.Dispatch
Yesod.Routes.TH.RenderRoute
Yesod.Routes.TH.Types
ghc-options: -Wall ghc-options: -Wall
test-suite runtests test-suite runtests