44 p put (Boolean b)                        = put ("bool: " ++ show b)  function
45 p put (IntVal i)                         = put ("int: " ++ showHex i "")  function
46 p put (BitString bits)                   = put ("bitstring: " ++ (hexdump $ bitArrayGetData bits))  function
47 p put (OctetString bs)                   = put ("octetstring: " ++ hexdump bs)  function
48 p put (Null)                             = put "null"  function
49 p put (OID is)                           = put ("OID: " ++ show is)  function
50 p put (Real d)                           = put ("real: " ++ show d)  function
51 p put (Enumerated _)                     = put "enum"  function
52 p put (Start Sequence)                   = put "{"  function
53 p put (End Sequence)                     = put "}"  function
54 p put (Start Set)                        = put "["  function
55 p put (End Set)                          = put "]"  function
56 p put (Start (Container x y))            = put ("< " ++ show x ++ " " ++ show y)  function
57 p put (End (Container x y))              = put ("> " ++ show x ++ " " ++ show y)  function
58 p put (ASN1String cs)                    = putCS put cs  function
59 p put (ASN1Time TimeUTC time tz)         = put ("utctime: " ++ show time ++ " " ++ show tz)  function
60 p put (ASN1Time TimeGeneralized time tz) = put ("generalizedtime: " ++ show time ++ " " ++ show tz)  function
61 p put (Other tc tn x)                    = put ("other(" ++ show tc ++ "," ++ show tn ++ "," ++ sho…  function
64 putCS put (ASN1CharacterString UTF8 t)         = put ("utf8string:" ++ show t)  function
65 putCS put (ASN1CharacterString Numeric bs)     = put ("numericstring:" ++ hexdump bs)  function
66 putCS put (ASN1CharacterString Printable t)    = put ("printablestring: " ++ show t)  function
67 putCS put (ASN1CharacterString T61 bs)         = put ("t61string:" ++ show bs)  function
68 putCS put (ASN1CharacterString VideoTex bs)    = put ("videotexstring:" ++ hexdump bs)  function
69 putCS put (ASN1CharacterString IA5 bs)         = put ("ia5string:" ++ show bs)  function
70 putCS put (ASN1CharacterString Graphic bs)     = put ("graphicstring:" ++ hexdump bs)  function
71 putCS put (ASN1CharacterString Visible bs)     = put ("visiblestring:" ++ hexdump bs)  function
72 putCS put (ASN1CharacterString General bs)     = put ("generalstring:" ++ hexdump bs)  function
73 putCS put (ASN1CharacterString UTF32 t)        = put ("universalstring:" ++ show t)  function
74 putCS put (ASN1CharacterString Character bs)   = put ("characterstring:" ++ hexdump bs)  function
75 putCS put (ASN1CharacterString BMP t)          = put ("bmpstring: " ++ show t)  function