insertAssignment' :: ExperimentId -> UserId -> Variation -> RunHRRBackend ()
insertAssignment' eid uid var conn = do
  ps <- Insert.prepareInsert conn insertAssignment
  _  <- Insert.runPreparedInsert ps Assignment { asExperimentId = eid
                                               , asUserId = uid
                                               , asVariation = var
                                               , asReward = MkReward 0.0
                                               }
  return ()
insertAssignment' :: ExperimentId -> UserId -> Variation -> RunHRRBackend ()
insertAssignment' eid uid var conn = do
  ps <- Insert.prepareInsert conn insertAssignment
  _  <- Insert.runPreparedInsert ps Assignment { asExperimentId = eid
                                               , asUserId = uid
                                               , asVariation = var
                                               , asReward = MkReward 0.0
                                               }
  return ()
insertAssignment' eid uid var conn = do
  ps <- Insert.prepareInsert conn insertAssignment
  _  <- Insert.runPreparedInsert ps Assignment { asExperimentId = eid
                                               , asUserId = uid
                                               , asVariation = var
                                               , asReward = MkReward 0.0
                                               }
  return ()