X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FOctet.hs;h=c40d45070e3e82e693d4634fb53d4e719aac4cb0;hb=1e7731c84546a25daed6bbfb3d9c733b334667bd;hp=e0a4bf655c1ece922a37d5fcdc8f2634957a1a3d;hpb=d4f46f4d52b3d51c2eb59a4aa818d4f23f14203d;p=hath.git

diff --git a/src/Octet.hs b/src/Octet.hs
index e0a4bf6..c40d450 100644
--- 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