]> gitweb.michael.orlitzky.com - hath.git/blobdiff - src/Octet.hs
Added the octet_from_string function.
[hath.git] / src / Octet.hs
index e0a4bf655c1ece922a37d5fcdc8f2634957a1a3d..c40d45070e3e82e693d4634fb53d4e719aac4cb0 100644 (file)
@@ -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