Merge pull request #42 from moodmosaic/add-another-printing-sample-to…

…-script Add another printing sample to script
hedgehogqa · Oct 31, 2016 · f894f09 · f894f09
2 parents e14f726 + b87cadf
commit f894f09
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/Jack/Script.fsx b/Jack/Script.fsx
@@ -167,3 +167,12 @@ Gen.byte
 |> Gen.tuple4
 |> Gen.map (fun (ma, mi, bu, re) -> Version (ma, mi, bu, re))
 |> Gen.printSample
+
+//
+// Printing Samples ― System.Net.IPAddress
+//
+
+Gen.printSample <| gen {
+    let! addr = Gen.byte |> Gen.array' 4 4
+    return System.Net.IPAddress addr
+}