Skip to content

Commit acff66e

Browse files
author
Philipp Kant
committed
Fix type signature of requestsOfType.
The type signature needs to be slightly different on older ghc versions (Typeable vs. Typeable1).
1 parent f547461 commit acff66e

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Haxl/Core/RequestStore.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -75,7 +75,7 @@ contents (RequestStore m) = Map.elems m
7575

7676
-- | Retrieves requests in the 'RequestStore' that have the same type
7777
-- as a given request.
78-
requestsOfType :: forall r a u . (Typeable r, Request r a) => r a -> RequestStore u -> [BlockedFetch r]
78+
requestsOfType :: forall r a u . (DataSource u r, Request r a) => r a -> RequestStore u -> [BlockedFetch r]
7979
requestsOfType _ (RequestStore rs) =
8080
let ty = typeOf1 (undefined :: r a)
8181
in case Map.lookup ty rs of

0 commit comments

Comments
 (0)