# HG changeset patch # User alfadur # Date 1549397927 -10800 # Node ID 669eb45bda7219802c0c8dd0de629c59ca4e4099 # Parent bc267f6b29d7f577f00aa563956290b774e93639 revert bc267f6b29d7 diff -r bc267f6b29d7 -r 669eb45bda72 gameServer/Actions.hs --- a/gameServer/Actions.hs Tue Feb 05 22:40:35 2019 +0300 +++ b/gameServer/Actions.hs Tue Feb 05 23:18:47 2019 +0300 @@ -668,10 +668,7 @@ checkBan False _ n (BanByNick bn _ _) = isMatch bn n checkBan _ _ _ _ = False isMatch :: B.ByteString -> B.ByteString -> Bool - isMatch rexp src = case B.uncons rexp of - Nothing -> False - Just ('^', rexp') -> (==) (Just True) $ mrexp rexp' >>= flip matchM src - Just _ -> rexp == src + isMatch rexp src = (==) (Just True) $ mrexp rexp >>= flip matchM src mrexp :: B.ByteString -> Maybe TDFAB.Regex mrexp = makeRegexOptsM TDFA.defaultCompOpt{TDFA.caseSensitive = False} TDFA.defaultExecOpt getBanReason (BanByIP _ msg _) = msg