Facebook

Facebook/sigma.md

@@ -0,0 +1,52 @@
+### 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
+```