slack-api-0.4: tests/Tests/ConnectionTest.hs

module Tests.ConnectionTest (main) where

import Web.Slack
import System.Environment (lookupEnv)
import System.Exit
import System.IO.Unsafe

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

connectBot :: SlackBot ()
connectBot Hello = unsafePerformIO exitSuccess
connectBot _ = return ()


main :: IO ()
main = do
  apiToken <- lookupEnv "SLACK_API_TOKEN"
  case apiToken of
    Nothing -> exitFailure
    Just token ->  runBot (myConfig token) connectBot ()