serializeConstr (CharConstr c)   = serializeWord8 4 . serializeChar c
serializeConstr (CharConstr c)   = serializeWord8 4 . serializeChar c
serializeConstr (CharConstr c)   = serializeWord8 4 . serializeChar c