fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: remove redundant constraints

Browse Source
This commit is contained in:
Gregor Kleen 2021-04-14 07:23:09 +02:00
parent fe3b42c0b0
commit 9087e241c1
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Foundation/SiteLayout.hs
View File

@ -111,16 +111,15 @@ data MemcachedLimitKeyFavourites
deriving anyclass (Hashable, Binary) deriving anyclass (Hashable, Binary)
siteLayoutMsg :: (RenderMessage site msg, site ~ UniWorX, BearerAuthSite UniWorX, YesodPersistBackend UniWorX ~ SqlBackend, Button UniWorX ButtonSubmit) => msg -> WidgetFor UniWorX () -> HandlerFor UniWorX Html siteLayoutMsg :: (RenderMessage site msg, site ~ UniWorX, BearerAuthSite UniWorX, YesodPersistBackend UniWorX ~ SqlBackend) => msg -> WidgetFor UniWorX () -> HandlerFor UniWorX Html
siteLayoutMsg = siteLayout . i18n siteLayoutMsg = siteLayout . i18n
{-# DEPRECATED siteLayoutMsg' "Use siteLayoutMsg" #-} {-# DEPRECATED siteLayoutMsg' "Use siteLayoutMsg" #-}
siteLayoutMsg' :: (RenderMessage site msg, site ~ UniWorX, BearerAuthSite UniWorX, YesodPersistBackend UniWorX ~ SqlBackend, Button UniWorX ButtonSubmit) => msg -> WidgetFor UniWorX () -> HandlerFor UniWorX Html siteLayoutMsg' :: (RenderMessage site msg, site ~ UniWorX, BearerAuthSite UniWorX, YesodPersistBackend UniWorX ~ SqlBackend) => msg -> WidgetFor UniWorX () -> HandlerFor UniWorX Html
siteLayoutMsg' = siteLayoutMsg siteLayoutMsg' = siteLayoutMsg
siteLayout :: ( BearerAuthSite UniWorX siteLayout :: ( BearerAuthSite UniWorX
, YesodPersistBackend UniWorX ~ SqlBackend , YesodPersistBackend UniWorX ~ SqlBackend
, Button UniWorX ButtonSubmit
) )
=> WidgetFor UniWorX () -- ^ `pageHeading` => WidgetFor UniWorX () -- ^ `pageHeading`
-> WidgetFor UniWorX () -> HandlerFor UniWorX Html -> WidgetFor UniWorX () -> HandlerFor UniWorX Html
@ -128,7 +127,6 @@ siteLayout = siteLayout' . Just
siteLayout' :: ( BearerAuthSite UniWorX siteLayout' :: ( BearerAuthSite UniWorX
, YesodPersistBackend UniWorX ~ SqlBackend , YesodPersistBackend UniWorX ~ SqlBackend
, Button UniWorX ButtonSubmit
) )
=> Maybe (WidgetFor UniWorX ()) -- ^ `pageHeading` => Maybe (WidgetFor UniWorX ()) -- ^ `pageHeading`
-> WidgetFor UniWorX () -> HandlerFor UniWorX Html -> WidgetFor UniWorX () -> HandlerFor UniWorX Html