Add mkIpv4ReverseRecord, rename mkReverseRecord to mkIPv6ReverseRecord

Author: SuperSandro2000

dns/default.nix

@@ -41,5 +41,5 @@ in
 
   inherit combinators;
 
-  inherit (dnslib.util) mkReverseRecord;
+  inherit (dnslib.util) mkIPv4ReverseRecord mkIPv6ReverseRecord;
 }

dns/util/default.nix

@@ -35,7 +35,7 @@ let
 
   # : str -> [ str ]
   # Returns the record of the ipv6 as a list
-  mkRecordAux = v6:
+  mkIPv6RecordAux = v6:
     let
       v6' = if lib.hasPrefix "::" v6 then
         "0${v6}"
@@ -50,9 +50,19 @@ let
 
   # : str -> str
   # Returns the reversed record of the ipv6
-  mkReverseRecord = v6:
-    lib.concatStringsSep "." (lib.reverseList (mkRecordAux v6)) + ".ip6.arpa";
+  mkIPv6ReverseRecord = v6:
+    lib.concatStringsSep "." (lib.reverseList (mkIPv6RecordAux v6)) + ".ip6.arpa";
 
+  # : str -> str
+  # Returns the reversed record of the ipv4
+  mkIPv4ReverseRecord = v4:
+    lib.concatStringsSep "." (
+      lib.reverseList (
+        lib.filter lib.isString (
+          lib.splitString "." v4
+        )
+      )
+    ) + ".in-addr.arpa";
 in {
-  inherit writeCharacterString mkReverseRecord;
+  inherit writeCharacterString mkIPv4ReverseRecord mkIPv6ReverseRecord;
 }