NLX73UKSI67TAREMATK6FIEOTMG25OT7O5SAJQNDCELQWTQK56PQC clearICMP :: String -> IO ()clearICMP server = doiptables ["-D", "INPUT", "-s", server, "-p", "icmp", "--icmp-type", "0", "-j", "DROP"]
-- Clean up old socket if existscatch (removeFile socketPath) (\(_::SomeException) -> pure ())sock <- socket AF_UNIX Stream 0bind sock (SockAddrUnix socketPath)setFileMode socketPath 0o775listen sock 1forever $ do(conn, _) <- accept sock_ <- forkIO $ (handleClient conn ip)pure ()