diff options
Diffstat (limited to 'src/Reaktor/Plugins/Mention.hs')
| -rw-r--r-- | src/Reaktor/Plugins/Mention.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Reaktor/Plugins/Mention.hs b/src/Reaktor/Plugins/Mention.hs index b3cdbb8..b288fdb 100644 --- a/src/Reaktor/Plugins/Mention.hs +++ b/src/Reaktor/Plugins/Mention.hs @@ -3,16 +3,16 @@ {-# LANGUAGE RecordWildCards #-} module Reaktor.Plugins.Mention (new) where -import Prelude.Extended import qualified Data.Char import qualified Data.Text as T +import Prelude.Extended import Reaktor new :: Actions -> IO (Message -> IO ()) new Actions{..} = do pure $ \case - Message _ "PRIVMSG" (msgtarget:text:[]) -> do + Message _ PRIVMSG (msgtarget:text:[]) -> do nick <- aGetNick when (isMention nick text) $ do aSend (privmsg msgtarget ["I'm famous!"]) |