Make ping command customizable

src/EuphApi/Utils/Botrulez.hs

@@ -20,13 +20,13 @@ import qualified EuphApi.Bot            as B
 import qualified EuphApi.Types          as E
 import qualified EuphApi.Utils          as E
 
-pingCommand :: E.Command b c
-pingCommand = E.specificCommand "ping" $ \msg ->
-  void $ B.reply (E.msgID msg) "Pong!"
+pingCommand :: T.Text -> E.Command b c
+pingCommand pingText = E.specificCommand "ping" $ \msg ->
+  void $ B.reply (E.msgID msg) pingText
 
-generalPingCommand :: E.Command b c
-generalPingCommand = E.command "ping" $ \msg ->
-  void $ B.reply (E.msgID msg) "Pong!"
+generalPingCommand :: T.Text -> E.Command b c
+generalPingCommand pingText = E.command "ping" $ \msg ->
+  void $ B.reply (E.msgID msg) pingText
 
 helpCommand :: T.Text -> E.Command b c
 helpCommand helpText = E.specificCommand "help" $ \msg ->

test/bot_with_botrulez.hs

@@ -17,15 +17,16 @@ import qualified EuphApi.Utils.Botrulez    as E
 
 myCommands :: [E.Command b c]
 myCommands =
-  [ E.pingCommand
-  , E.generalPingCommand
+  [ E.pingCommand "Pong!"
+  , E.generalPingCommand "Pong!"
   , E.helpCommand "Some specific placeholder help"
   , E.generalHelpCommand "I help test @Garmy's EuphApi"
   , E.uptimeCommand
-  , E.generalUptimeCommand
+  , E.generalUptimeCommand -- most bots don't do this
   , E.command "whatsmynick" (\msg -> do
       nick <- E.sessName <$> B.getOwnView
-      let content = nick <> "\n" <> E.mention nick <> "\n" <> E.atMention nick <> "\n" <> E.mentionReduce nick
+      let content =  nick <> "\n" <> E.mention nick <> "\n" <> E.atMention nick
+                  <> "\n" <> E.mentionReduce nick
       void $ B.reply (E.msgID msg) content
     )
   ]