From b87c8913fe3b3113cc61f39d1304801bf3ce5910 Mon Sep 17 00:00:00 2001
From: Mylloon <kennel.anri@tutanota.com>
Date: Tue, 4 Jul 2023 11:05:40 +0200
Subject: [PATCH] remove debug stuff, there is probably an issue somewhere in
 code, either in the parser or the name decompression, since i don't have the
 same result as in the tutorial, but i dont think its *that* bad

---
 lib/response.ml | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/lib/response.ml b/lib/response.ml
index 28c4861..a478551 100644
--- a/lib/response.ml
+++ b/lib/response.ml
@@ -58,15 +58,11 @@ let parse_record reader =
     ; data =
         (let raw_data = Bytes.sub data record_len data_len in
          match type_ with
-         | v when v = DNSType.ns ->
-           print_endline "aaaaaaaaaaaaa";
-           let r1, r2 =
-             decode_name
-               { reader with pointer = reader.pointer + offset_name + record_len }
-           in
-           Printf.printf "%s - %d\n" (String.of_bytes r1) r2;
-           r1
-         | v when v = DNSType.a -> String.to_bytes (get_ip raw_data)
+         | t when t = DNSType.ns ->
+           fst
+             (decode_name
+                { reader with pointer = reader.pointer + offset_name + record_len })
+         | t when t = DNSType.a -> String.to_bytes (get_ip raw_data)
          | _ -> raw_data)
     } )
 ;;