infoToCStruct :: Info -> CStruct
infoToCStruct (Info name field_names _) = CStruct name $ map types_names field_names
    where types_names tps = zip (c_types tps) names
          c_types tps = map (\n -> (toC n, (toC n) `elem` c_prims) ) tps
          names   = map return ['a'..'z']
infoToCStruct :: Info -> CStruct
infoToCStruct (Info name field_names _) = CStruct name $ map types_names field_names
    where types_names tps = zip (c_types tps) names
          c_types tps = map (\n -> (toC n, (toC n) `elem` c_prims) ) tps
          names   = map return ['a'..'z']
infoToCStruct (Info name field_names _) = CStruct name $ map types_names field_names
    where types_names tps = zip (c_types tps) names
          c_types tps = map (\n -> (toC n, (toC n) `elem` c_prims) ) tps
          names   = map return ['a'..'z']