Use #integral_t whenever possible

[bindings-CarbonCore.git] / Bindings / CoreServices / CarbonCore / MacTypes.hsc

diff --git a/Bindings/CoreServices/CarbonCore/MacTypes.hsc b/Bindings/CoreServices/CarbonCore/MacTypes.hsc
index 41b21b8be3f2f41846e59b21ea6b82d024b3695b..05cc03faa188064b17f4446618679b57a6d47320 100644 (file)
--- a/Bindings/CoreServices/CarbonCore/MacTypes.hsc
+++ b/Bindings/CoreServices/CarbonCore/MacTypes.hsc
@@ -187,10 +187,10 @@ module Bindings.CoreServices.CarbonCore.MacTypes where
 #integral_t StyleParameter
 #synonym_t  StyleField, <Style>
 
-#synonym_t TimeValue    , <SInt32>
-#synonym_t TimeScale    , <SInt32>
-#synonym_t CompTimeValue, <wide>
-#synonym_t TimeValue64  , <SInt64>
+#integral_t TimeValue
+#integral_t TimeScale
+#synonym_t  CompTimeValue, <wide>
+#integral_t TimeValue64
 
 #opaque_t  TimeBaseRecord
 #synonym_t TimeBase, Ptr <TimeBaseRecord>
@@ -229,13 +229,13 @@ module Bindings.CoreServices.CarbonCore.MacTypes where
 #synonym_t VersRecPtr , Ptr <VersRec>
 #synonym_t VersRecHndl, Ptr <VersRecPtr>
 
-#synonym_t Byte           , <UInt8>
-#synonym_t SignedByte     , <SInt8>
-#synonym_t WidePtr        , Ptr <wide>
-#synonym_t UnsignedWidePtr, Ptr <UnsignedWide>
-#synonym_t extended80     , <Float80>
-#synonym_t extended96     , <Float96>
-#synonym_t VHSelect       , <SInt8>
+#integral_t Byte
+#integral_t SignedByte
+#synonym_t  WidePtr        , Ptr <wide>
+#synonym_t  UnsignedWidePtr, Ptr <UnsignedWide>
+#synonym_t  extended80     , <Float80>
+#synonym_t  extended96     , <Float96>
+#integral_t VHSelect
 
 #ccall Debugger    , IO ()
 #ccall DebugStr    , <ConstStr255Param> -> IO ()