From a1e18c5b6832f30e0bb119406f0660863db40dd4 Mon Sep 17 00:00:00 2001 From: Felix Yan Date: Fri, 25 Jun 2021 10:54:55 +0800 Subject: [PATCH] Fix compatibility with template-haskell 2.17 --- yesod-core/src/Yesod/Core/Internal/TH.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/yesod-core/src/Yesod/Core/Internal/TH.hs b/yesod-core/src/Yesod/Core/Internal/TH.hs index f3505b91..11bbf90b 100644 --- a/yesod-core/src/Yesod/Core/Internal/TH.hs +++ b/yesod-core/src/Yesod/Core/Internal/TH.hs @@ -107,9 +107,9 @@ mkYesodDispatch name = fmap snd . mkYesodWithParser name False return -- | Get the Handler and Widget type synonyms for the given site. masterTypeSyns :: [Name] -> Type -> [Dec] -- FIXME remove from here, put into the scaffolding itself? masterTypeSyns vs site = - [ TySynD (mkName "Handler") (fmap PlainTV vs) + [ TySynD (mkName "Handler") (fmap plainTV vs) $ ConT ''HandlerFor `AppT` site - , TySynD (mkName "Widget") (fmap PlainTV vs) + , TySynD (mkName "Widget") (fmap plainTV vs) $ ConT ''WidgetFor `AppT` site `AppT` ConT ''() ]