はじめに

SlackでBotを書きたいけど、Hubotは使いたくないし、なによりJavascriptを書きたくない。
でも直にReal Time Messaging APIを叩きに行くのはしんどい。

Hackageにいい感じのライブラリないかな…→ありました
https://hackage.haskell.org/package/slack-api

ということで、覚えたてのHaskell stackを使って、RTM APIを叩きに行くサンプルを作りました。
今回はgithubに載ってたEchoBotを動かすとこまで。

Slack bot

まずはbotのtokenを発行します。
https://slack.com/apps/A0F7YS25R-bots
(無料プランだとintegrationは10個までなので気をつけてください)
適当にUsernameを決めると謎の文字列(token)が手に入ります。魔法の呪文なので公開しないように。

もうこの時点でAPI documentのやつが使えるので、適当に

$ curl "https://slack.com/api/api.test" -X POST -d "token=xxxx-xxxxxxxxxxxx-xxxxxxxxxxxxxxxxxxxxxxxx"

とかやるとjsonが帰ってきます。

{"ok":true,"args":{"token":"xxxx-xxxxxxxxxxxx-xxxxxxxxxxxxxxxxxxxxxxxx"}}

お手軽ですね。
chat.postMessageとかもあります。一通り遊んでみましょう。

Haskell stack

stackが神すぎて泣いてます。
How to installに書いてある一行でインストールできるので今すぐ入れましょう。

適当な作業directoryで

$ stack new my-bot && cd my-bot

するといい感じのtemplateができます。

slack-apiはStackageには入ってないようなので、extra-depsに書きます。

diff --git a/stack.yaml b/stack.yaml
index 45ed1cb..754e7ac 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -39,7 +39,8 @@ packages:
 - '.'
 # Dependency packages to be pulled from upstream that are not in the resolver
 # (e.g., acme-missiles-0.3)
-extra-deps: []
+extra-deps:
+- slack-api-0.11

そしてmy-bot.cabalに依存関係を書きます。

diff --git a/slackbot.cabal b/slackbot.cabal
index 75da504..041d58c 100644
--- a/slackbot.cabal
+++ b/slackbot.cabal
@@ -25,6 +25,7 @@ executable slackbot
   ghc-options:         -threaded -rtsopts -with-rtsopts=-N
   build-depends:       base
                      , slackbot
+                     , slack-api
   default-language:    Haskell2010

 test-suite slackbot-test

いったんbuildしてみます。結構時間がかかると思います。

$ stack build

これだけでslack-apiが使えるようになりました。

サンプルコードを動かす

slack-apiのgithubにあるExampleを動かしてみます。
app/Main.hsをまるっと以下で書き換えます。

module EchoBot where

import Web.Slack
import Web.Slack.Message
import System.Environment (lookupEnv)
import Data.Maybe (fromMaybe)
import Control.Applicative

myConfig :: String -> SlackConfig
myConfig apiToken = SlackConfig
         { _slackApiToken = apiToken -- Specify your API token here
         }

echoBot :: SlackBot ()
echoBot (Message cid _ msg _ _ _) = sendMessage cid msg
echoBot _ = return ()

main :: IO ()
main = do
  apiToken <- fromMaybe (error "SLACK_API_TOKEN not set")
               <$> lookupEnv "SLACK_API_TOKEN"
  runBot (myConfig apiToken) echoBot ()

そしてbuild。

$ stack build

起動。

$ env SLACK_API_TOKEN=xxxx-xxxxxxxxxxxx-xxxxxxxxxxxxxxxxxxxxxxxx stack exec my-bot-exe

botがオンライン状態になると思います。DMを送ってみましょう。

OK. オウム返しBOTの完成です。

まとめ

Haskell Stackを使ってSlackのRTM APIを叩くライブラリを扱えました。
stack.yamlとmy-bot.cabalの連携が最初よくわからなかったんですが、stackがここにこう書けばいいよ～って教えてくれたりしてすごかったです。
stack便利だなぁ

今回はデプロイまでは扱いませんでしたが、サーバって感じでもない(外部にポート晒したりしない)のでローカルで動かしておけばいいのでは？って感じもします。

どうでもいいけどslackとstackをよく見間違えます。

HaskellでSlack bot (RTM API)

はじめに

Slack bot

Haskell stack

サンプルコードを動かす

まとめ