Get it to build again

yesod-routes/Yesod/Routes/TH/Dispatch.hs

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

yesod-routes/yesod-routes.cabal

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