diff --git a/src/Yesod/Servant.hs b/src/Yesod/Servant.hs
index 1c08c46fc..c87f6e3e4 100644
--- a/src/Yesod/Servant.hs
+++ b/src/Yesod/Servant.hs
@@ -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
     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)
     | p == escapedSymbol (Proxy @sym)
     = parseServantRoute @sub @(ServantApiDirect sub) (ps, qs) <&> \case