Merge pull request #1744 from digitallyinduced/remove-redundant-data-…

…constraint Replace the redundant Data controller constraint on parseRoute with Typeable controller
digitallyinduced · Jul 13, 2023 · 56fb586 · 56fb586
2 parents dcff6a3 + a7ce50b
commit 56fb586
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/IHP/RouterSupport.hs b/IHP/RouterSupport.hs
@@ -868,7 +868,7 @@ mountFrontController :: forall frontController. (?applicationContext :: Applicat
 mountFrontController application = let ?application = application in router []
 {-# INLINABLE mountFrontController #-}
 
-parseRoute :: forall controller application. (?applicationContext :: ApplicationContext, ?context :: RequestContext, Controller controller, CanRoute controller, InitControllerContext application, ?application :: application, Typeable application, Data controller) => RouteParser
+parseRoute :: forall controller application. (?applicationContext :: ApplicationContext, ?context :: RequestContext, Controller controller, CanRoute controller, InitControllerContext application, ?application :: application, Typeable application, Typeable controller) => RouteParser
 parseRoute = toRouteParser' $ do
     action <- parseRoute' @controller
     pure $ runAction' @application action