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

Versionbump: Removed redundant constraints.

Browse Source
This commit is contained in:
Stephan Barth 2024-02-18 19:25:22 +01:00
parent edd2cb3838
commit b70a13e1c3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Yesod/Servant.hs
View File

@ -188,7 +188,7 @@ instance (HasRoute sub, Typeable mods) => HasRoute (CaptureBearerToken' mods :>
ServantApiRoute (_ :: Proxy endpoint) f ps qs -> ServantApiRoute (Proxy @(CaptureBearerToken' mods :> endpoint)) f ps qs ServantApiRoute (_ :: Proxy endpoint) f ps qs -> ServantApiRoute (Proxy @(CaptureBearerToken' mods :> endpoint)) f ps qs
ServantApiBaseRoute -> ServantApiBaseRoute ServantApiBaseRoute -> ServantApiBaseRoute
instance (KnownSymbol sym, HasRoute sub, HasLink sub) => HasRoute (sym :> sub) where instance (KnownSymbol sym, HasRoute sub) => HasRoute (sym :> sub) where
parseServantRoute (p : ps, qs) parseServantRoute (p : ps, qs)
| p == escapedSymbol (Proxy @sym) | p == escapedSymbol (Proxy @sym)
= parseServantRoute @sub @(ServantApiDirect sub) (ps, qs) <&> \case = parseServantRoute @sub @(ServantApiDirect sub) (ps, qs) <&> \case