Nub default channel modes to remove duplicates

ori-sky · Mar 17, 2014 · 3deb5f7 · 3deb5f7
1 parent f9e9b7f
commit 3deb5f7
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/plugins/Join.hs b/plugins/Join.hs
@@ -15,6 +15,7 @@
 
 module Join where
 
+import Data.List (nub)
 import Data.Maybe (fromMaybe)
 import qualified Data.Map as M
 import qualified Data.IntMap as IM
@@ -36,7 +37,7 @@ join :: CommandHSpec
 join env (Message _ _ (chan@('#':_):_)) = whenRegistered env $ env {Env.actions=a:Env.actions env}
   where
     cp = Env.config env
-    defChanModes = getConfigString cp "channel" "default_modes"
+    defChanModes = nub $ getConfigString cp "channel" "default_modes"
     serverName = getConfigString cp "info" "name"
     channels = Client.channels (Env.client env)
     aJoin e = do