liftBan :: String -> IO ()
liftBan addr = do
  let args = ["-D", "BLACKLIST", "-s", addr, "-j", "DROP"]
  createProcess (proc ipCmd args){ std_out = CreatePipe }
  putStrLn $ "Unbanning " ++ addr
liftBan :: String -> IO ()
liftBan addr = do
  let args = ["-D", "BLACKLIST", "-s", addr, "-j", "DROP"]
  createProcess (proc ipCmd args){ std_out = CreatePipe }
  putStrLn $ "Unbanning " ++ addr
liftBan addr = do
  let args = ["-D", "BLACKLIST", "-s", addr, "-j", "DROP"]
  createProcess (proc ipCmd args){ std_out = CreatePipe }
  putStrLn $ "Unbanning " ++ addr