15 lines
420 B
Haskell
15 lines
420 B
Haskell
module Jobs.Handler.StudyFeatures
|
|
( dispatchJobStudyFeaturesCacheRelevance
|
|
) where
|
|
|
|
import Import
|
|
|
|
import Handler.Utils.StudyFeatures
|
|
|
|
import qualified Database.Esqueleto as E
|
|
|
|
|
|
dispatchJobStudyFeaturesCacheRelevance :: JobHandler UniWorX
|
|
dispatchJobStudyFeaturesCacheRelevance = JobHandlerAtomic $
|
|
cacheStudyFeatureRelevance $ \studyFeatures -> studyFeatures E.^. StudyFeaturesRelevanceCached E.!=. E.val True
|