facebook/Haxl
1
1
Fork 0
mirror of https://github.com/facebook/Haxl.git synced 2025-01-08 10:48:30 +03:00
Code Issues Projects Releases Wiki Activity

scheduler hint with request

Browse Source 
Summary: https://www.internalfb.com/diff/D57330122?dst_version_fbid=975275170917805&transaction_fbid=1863882647422768

Reviewed By: simonmar

Differential Revision: D57379154

fbshipit-source-id: 77593417465cf6d34e0813abc2dffaa389ba1584
This commit is contained in:
Pepe Iborra 2024-05-16 05:40:04 -07:00 committed by Facebook GitHub Bot
parent 6cd30c084d
commit 42b72a2daf
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Haxl/Core/DataSource.hs
View File

@ -107,6 +107,9 @@ class (DataSourceName req, StateKey req, ShowP req) => DataSource u req where
schedulerHint :: u -> SchedulerHint req
schedulerHint _ = TryToBatch
schedulerHintState :: Maybe (State req) -> u -> SchedulerHint req
schedulerHintState _ u = schedulerHint u
classifyFailure :: u -> req a -> SomeException -> FailureClassification
classifyFailure _ _ _ = StandardFailure

4
Haxl/Core/Fetch.hs
View File

@ -264,7 +264,9 @@ dataFetchWithInsert showFn insertFn req =
blockedFetch = BlockedFetch req rvar
blockedFetchI = BlockedFetchInternal fid
submitFetch = do
case schedulerHint userEnv :: SchedulerHint r of
let hint :: SchedulerHint r
hint = schedulerHintState (stateGet states) userEnv
case hint of
SubmitImmediately ->
performFetches env [BlockedFetches [blockedFetch] [blockedFetchI]]
TryToBatch ->