updateProb :: Probability -> P.Pipe Request T.Text Asked ()
updateProb = RWS.put . R.bernoulli >=> const (P.yield "Updated probability")
updateProb :: Probability -> P.Pipe Request T.Text Asked ()
updateProb = RWS.put . R.bernoulli >=> const (P.yield "Updated probability")
updateProb = RWS.put . R.bernoulli >=> const (P.yield "Updated probability")