deserialize :: Serialized a -> IO a
deserialize ( Serialized{..} ) = do deseri_ packetData

-----------------------------------------------
-- Show Instance: 
--    print packet as Word array in 4 columns
-----------------------------------------------
deserialize :: Serialized a -> IO a
deserialize ( Serialized{..} ) = do deseri_ packetData

-----------------------------------------------
-- Show Instance: 
--    print packet as Word array in 4 columns
-----------------------------------------------
deserialize ( Serialized{..} ) = do deseri_ packetData

-----------------------------------------------
-- Show Instance: 
--    print packet as Word array in 4 columns
-----------------------------------------------