Fix type signature of requestsOfType.

The type signature needs to be slightly different on older ghc versions (Typeable vs. Typeable1).
facebook · Jan 30, 2016 · 46d9dfd · 46d9dfd
1 parent e757ad1
commit 46d9dfd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Haxl/Core/RequestStore.hs b/Haxl/Core/RequestStore.hs
@@ -75,7 +75,7 @@ contents (RequestStore m) = Map.elems m
 
 -- | Retrieves requests in the 'RequestStore' that have the same type
 -- as a given request.
-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]
 requestsOfType _ (RequestStore rs) =
   let ty = typeOf1 (undefined :: r a)
   in case Map.lookup ty rs of