handleRequest :: P.Pipe Request T.Text Asked ()
handleRequest = forever $ do
    req <- P.await
    case req of
        HelpRequest -> giveHelp
        ChangeProbabilityRequest newProb -> updateProb newProb
        OtherMessage -> handleOther
handleRequest :: P.Pipe Request T.Text Asked ()
handleRequest = forever $ do
    req <- P.await
    case req of
        HelpRequest -> giveHelp
        ChangeProbabilityRequest newProb -> updateProb newProb
        OtherMessage -> handleOther
handleRequest = forever $ do
    req <- P.await
    case req of
        HelpRequest -> giveHelp
        ChangeProbabilityRequest newProb -> updateProb newProb
        OtherMessage -> handleOther