infoToHSStruct :: Info -> HSStruct
infoToHSStruct (Info name types _) = HSStruct name hs_types
    where hs_types = map (map (\t -> (t, t `elem` hs_prims))) types
infoToHSStruct :: Info -> HSStruct
infoToHSStruct (Info name types _) = HSStruct name hs_types
    where hs_types = map (map (\t -> (t, t `elem` hs_prims))) types
infoToHSStruct (Info name types _) = HSStruct name hs_types
    where hs_types = map (map (\t -> (t, t `elem` hs_prims))) types