@@ -730,7 +730,11 @@ ctype t = error "Can't happen: Not a valid interface type " ++ show t
730carith (FCon i)
730carith (FCon i)
731 | i == sUN "C_IntChar" = "char"
731 | i == sUN "C_IntChar" = "char"
732 | i == sUN "C_IntNative" = "int"
732 | i == sUN "C_IntNative" = "int"
733+ | i == sUN "C_Bits8" = "uint8_t"
734+ | i == sUN "C_Bits16" = "uint16_t"
735+ | i == sUN "C_Bits32" = "uint32_t"
736+ | i == sUN "C_Bits64" = "uint64_t"
733−carith t = error "Can't happen: Not an exportable arithmetic type"
737+carith t = error $ "Can't happen: Not an exportable arithmetic type " ++ show t
735cdesc (FStr s) = s
739cdesc (FStr s) = s
736cdesc s = error "Can't happen: Not a valid C name"
740cdesc s = error "Can't happen: Not a valid C name"