We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent e757ad1 commit 46d9dfdCopy full SHA for 46d9dfd
Haxl/Core/RequestStore.hs
@@ -75,7 +75,7 @@ contents (RequestStore m) = Map.elems m
75
76
-- | Retrieves requests in the 'RequestStore' that have the same type
77
-- as a given request.
78
-requestsOfType :: forall r a u . (Typeable r, Request r a) => r a -> RequestStore u -> [BlockedFetch r]
+requestsOfType :: forall r a u . (DataSource u r, Request r a) => r a -> RequestStore u -> [BlockedFetch r]
79
requestsOfType _ (RequestStore rs) =
80
let ty = typeOf1 (undefined :: r a)
81
in case Map.lookup ty rs of
0 commit comments