Routes is data family, not type family

Yesod/Dispatch.hs

@@ -146,8 +146,8 @@ mkYesodGeneral name args clazzes isSub res = do
     explode <- [|explodeHandler|]
     let th = map thResourceFromResource res
     w' <- createRoutes th
-    let w = DataD [] (mkName $ name ++ "Routes") [] w' []
-    let x = TySynInstD ''Routes [arg] $ ConT $ mkName $ name ++ "Routes"
+    let w = DataInstD [] ''Routes [arg] w' []
+    let x = TySynD (mkName $ name ++ "Routes") [] $ ConT ''Routes `AppT` arg
 
     parse' <- createParse th
     parse'' <- newName "parse"

Yesod/Handler.hs

@@ -93,7 +93,7 @@ import Text.Hamlet
 import Numeric (showIntAtBase)
 import Data.Char (ord, chr)
 
-type family Routes a
+data family Routes a
 
 data HandlerData sub master = HandlerData
     { handlerRequest :: Request