b6 :: Bit,
b7 :: Bit,
b8 :: Bit }
- deriving (Eq, Show)
+ deriving (Eq)
+
+
+instance Show Octet where
+ show Octet.None = "None"
+ show oct = show (octet_to_int oct)
+
-- Convert each bit to its integer value, and multiply by the
-- appropriate power of two. Sum them up, and we should get an integer