giveHelp :: P.Pipe Request T.Text Asked ()
giveHelp = do
    botnick <- RWS.ask
    P.yield $ T.pack botnick <> ": asked help - Display this message"
    P.yield $ T.pack botnick <> ": asked set probability <0-1> - Set " <>
        "probability to a number between 0 and 1"
    P.yield $ T.pack "Otherwise prints \"Spurgt\" with the current " <>
        "probability to each message"
giveHelp :: P.Pipe Request T.Text Asked ()
giveHelp = do
    botnick <- RWS.ask
    P.yield $ T.pack botnick <> ": asked help - Display this message"
    P.yield $ T.pack botnick <> ": asked set probability <0-1> - Set " <>
        "probability to a number between 0 and 1"
    P.yield $ T.pack "Otherwise prints \"Spurgt\" with the current " <>
        "probability to each message"
giveHelp = do
    botnick <- RWS.ask
    P.yield $ T.pack botnick <> ": asked help - Display this message"
    P.yield $ T.pack botnick <> ": asked set probability <0-1> - Set " <>
        "probability to a number between 0 and 1"
    P.yield $ T.pack "Otherwise prints \"Spurgt\" with the current " <>
        "probability to each message"