diff --git a/yesod-routes/Yesod/Routes/TH/Dispatch.hs b/yesod-routes/Yesod/Routes/TH/Dispatch.hs
index 02f78103..53e4247d 100644
--- a/yesod-routes/Yesod/Routes/TH/Dispatch.hs
+++ b/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
+-}
diff --git a/yesod-routes/yesod-routes.cabal b/yesod-routes/yesod-routes.cabal
index 8f8b9ba6..fee0102f 100644
--- a/yesod-routes/yesod-routes.cabal
+++ b/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