werewolf-slack 0.2.0.2 → 0.3.0.0

raw patch · 3 files changed

+12/−9 lines, 3 filesdep ~werewolf

Dependency ranges changed: werewolf

Files

• CHANGELOG.md +3/−3
• app/Werewolf/Slack/Werewolf.hs +7/−4
• werewolf-slack.cabal +2/−2

@@ -2,11 +2,11 @@  ### Upcoming -### v0.2.0.2+### v0.3.0.0 -*Revisions*+*Major* -* Added version to werewolf in Dockerfile.+* Added support for werewolf v0.5.0.0. ([#12](https://github.com/hjwylde/werewolf/issues/12))  ### v0.2.0.1 

@@ -34,17 +34,20 @@ import Werewolf.Slack.Slack  execute :: (MonadIO m, MonadReader Options m, MonadState Manager m) => String -> String -> m ()-execute user userCommand = whenJustM (interpret user userCommand) handle+execute user userCommand = do+    channelName <- asks optChannelName -interpret :: MonadIO m => String -> String -> m (Maybe Response)-interpret user userCommand = do+    whenJustM (interpret channelName user userCommand) handle++interpret :: MonadIO m => String -> String -> String -> m (Maybe Response)+interpret channelName user userCommand = do     stdout <- liftIO $ readCreateProcess (proc command arguments) ""      return (decode (encodeUtf8 $ TL.pack stdout) :: Maybe Response)     where         atUser      = if take 1 user == "@" then user else '@':user         command     = "werewolf"-        arguments   = ["--caller", atUser, "interpret", "--"] ++ words userCommand+        arguments   = ["--caller", atUser, "--tag", channelName, "interpret", "--"] ++ words userCommand  handle :: (MonadIO m, MonadReader Options m, MonadState Manager m) => Response -> m () handle response = do

@@ -1,5 +1,5 @@ name:           werewolf-slack-version:        0.2.0.2+version:        0.3.0.0  author:         Henry J. Wylde maintainer:     public@hjwylde.com@@ -48,4 +48,4 @@         text == 1.2.*,         wai == 3.2.*,         warp == 3.2.*,-        werewolf == 0.4.*+        werewolf == 0.5.*