Added the octet_from_string function.

diff --git a/src/Octet.hs b/src/Octet.hs
index e0a4bf655c1ece922a37d5fcdc8f2634957a1a3d..c40d45070e3e82e693d4634fb53d4e719aac4cb0 100644 (file)
--- a/src/Octet.hs
+++ b/src/Octet.hs
@@ -46,6 +46,13 @@ octet_from_int x
       a8 = if (x `mod` 1)   > 0 then One else Zero
 
 
+octet_from_string :: String -> Octet
+octet_from_string s =
+    case (reads s :: [(Int, String)]) of
+      []   -> Octet.None
+      x:_ -> octet_from_int (fst x)
+
+
 -- The octet with the least possible value.
 min_octet :: Octet
 min_octet = Octet Zero Zero Zero Zero Zero Zero Zero Zero