notes/Facebook/sigma.md

How to input samples for the context

inputs <- H.sampleInputsFrom "sentry_confirm_email" 500

How to test inputs

map failOnError <$>
  T.batchTestHaxl (
    textShow . Map.lookup (QE.QEUniverse "registration_classifiers") <$>
      QE.enabledExperiments
  )
  inputs

How to find users with enabled GK

gk <-map failOnError <$> T.batchTestHaxl (if passesGKPreCalculated "reg_conf_contactpoint_mismatch" then fmapId else return 0) inputs
good_inputs = [ snd x | x <-  zip gk inputs, fst x /= 0 ]

gk <-map failOnError <$> T.batchTestHaxl (if passesGKPreCalculated "reg_conf_contactpoint_mismatch" then fmapId else return "") inputs

1. The lazy one using exceptions.

inputs <- H.sampleInputsFrom "some_context" 1000
responses <- rights <$> T.batchTestPolicy (if passesGKExperiment "some_gk" then somePolicy else throw LogicError "An error") inputs

2. The fancier one with conditions, that gives you more flexibility.

inputs <- H.sampleInputsFrom "some_context" 1000
passes <- map failOnError <$> T.batchTestHaxl (GK.passesGKExperiment "some_gk") inputs

inputs_gk = map (inputs !!) $ elemIndices True passes
responses <- T.batchTestPolicy somePolicy inputs_gk

gk <-map failOnError <$> T.batchTestHaxl (passesGKPreCalculated "reg_conf_contactpoint_mismatch") inputs

How to dump Input Map content

T.pasteString "Some input map" . textShow =<< pp <$> inputMap