genConstructor :: CStruct -> String
genConstructor (CStruct name    []) = genConstructor' name []
genConstructor :: CStruct -> String
genConstructor (CStruct name    []) = genConstructor' name []
genConstructor (CStruct name    []) = genConstructor' name []