Imports Foreign.C.Types and "fixes" foreign ccall wrapper

Qt/Arthur.hs

@@ -16,6 +16,7 @@ module Qt.Arthur (
   )
   where
 
+import Foreign.C.Types
 import Qt.Arthur.Style
 import Qt.Arthur.Frame
 

Qt/Arthur/Frame.hs

@@ -20,6 +20,7 @@ module Qt.Arthur.Frame (
  , arthurFrame_loadSourceFile, arthurFrame_showSource
  ) where
 
+import Foreign.C.Types
 import Qtc.Enums.Classes.Core
 import Qth.ClassTypes.Core
 import Qth.Core

Qt/Arthur/Style.hs

@@ -14,6 +14,7 @@ module Qt.Arthur.Style (
  cached, ArthurStyle, CArthurStyle, arthurStyle, drawHoverRect
  ) where
 
+import Foreign.C.Types
 import Qtc.Enums.Classes.Core
 import Qth.ClassTypes.Core
 import Qth.Core

Qtc/ClassTypes/Core.hs

@@ -61,6 +61,7 @@ module Qtc.ClassTypes.Core (
   )
   where
 
+import Foreign.C.Types
 import Qtc.Classes.Types
 
 type QObject a = Object (CQObject a)

Qtc/ClassTypes/Gui.hs

@@ -269,6 +269,7 @@ module Qtc.ClassTypes.Gui (
   )
   where
 
+import Foreign.C.Types
 import Qtc.Classes.Types
 import Qtc.ClassTypes.Core
 

Qtc/ClassTypes/Network.hs

@@ -29,6 +29,7 @@ module Qtc.ClassTypes.Network (
   )
   where
 
+import Foreign.C.Types
 import Qtc.Classes.Types
 import Qtc.ClassTypes.Core
 

Qtc/ClassTypes/Opengl.hs

@@ -21,6 +21,7 @@ module Qtc.ClassTypes.Opengl (
   )
   where
 
+import Foreign.C.Types
 import Qtc.Classes.Types
 import Qtc.ClassTypes.Core
 import Qtc.ClassTypes.Gui

Qtc/ClassTypes/Tools.hs

@@ -15,6 +15,7 @@ module Qtc.ClassTypes.Tools (
   )
   where
 
+import Foreign.C.Types
 import Qtc.Classes.Types
 import Qtc.ClassTypes.Core
 import Qtc.ClassTypes.Gui

Qtc/Classes/Base.hs

@@ -20,6 +20,7 @@ module Qtc.Classes.Base (
   )
   where
 
+import Foreign.C.Types
 import Qtc.Classes.Types
 import System.Environment( getProgName, getArgs )
 import System.IO.Unsafe( unsafePerformIO )

Qtc/Classes/Core.hs

@@ -81,6 +81,7 @@ module Qtc.Classes.Core (
   , Qqy2(..)
   ) where
 
+import Foreign.C.Types
 import Qtc.Enums.Core.Qt
 import Qtc.Enums.Core.QFile
 import Qth.ClassTypes.Core

Qtc/Classes/Core_h.hs

@@ -14,6 +14,7 @@ module Qtc.Classes.Core_h (
   QwriteData_h(..)
   ) where
 
+import Foreign.C.Types
 import Qtc.Enums.Core.Qt
 import Qtc.Enums.Core.QFile
 import Qth.ClassTypes.Core

Qtc/Classes/Gui.hs

@@ -775,6 +775,7 @@ module Qtc.Classes.Gui (
   , QzValue(..)
   ) where
 
+import Foreign.C.Types
 import Qtc.Enums.Core.Qt
 import Qtc.Enums.Gui.QStyle
 import Qtc.Enums.Gui.QAbstractItemView

Qtc/Classes/Gui_h.hs

@@ -126,6 +126,7 @@ module Qtc.Classes.Gui_h (
   , Qwidget_h(..)
   ) where
 
+import Foreign.C.Types
 import Qtc.Enums.Core.Qt
 import Qtc.Enums.Gui.QStyle
 import Qtc.Enums.Gui.QAbstractItemView

Qtc/Classes/Network.hs

@@ -36,6 +36,7 @@ module Qtc.Classes.Network (
   , QsocketDescriptor(..)
   ) where
 
+import Foreign.C.Types
 import Qtc.ClassTypes.Core
 import Qth.ClassTypes.Core
 import Qtc.ClassTypes.Network

Qtc/Classes/Network_h.hs

@@ -16,6 +16,7 @@ module Qtc.Classes.Network_h (
   , QtoString_h(..)
   ) where
 
+import Foreign.C.Types
 import Qtc.ClassTypes.Core
 import Qth.ClassTypes.Core
 import Qtc.ClassTypes.Network

Qtc/Classes/Object.hs

@@ -14,6 +14,7 @@ module Qtc.Classes.Object (
  Object(..), objectNull, objectIsNull, objectCast, objectFromPtr, objectFromPtr_nf, withObjectPtr, ptrFromObject, objectListFromPtrList, objectListFromPtrList_nf
  ) where
 
+import Foreign.C.Types
 import Control.Exception 
 import System.IO.Unsafe( unsafePerformIO )
 import Foreign.C

Qtc/Classes/Opengl.hs

@@ -20,6 +20,7 @@ module Qtc.Classes.Opengl (
   , QswapBuffers(..)
   ) where
 
+import Foreign.C.Types
 import Qtc.ClassTypes.Core
 import Qth.ClassTypes.Core
 import Qtc.ClassTypes.Gui

Qtc/Classes/Opengl_h.hs

@@ -14,6 +14,7 @@ module Qtc.Classes.Opengl_h (
 
   ) where
 
+import Foreign.C.Types
 import Qtc.ClassTypes.Core
 import Qth.ClassTypes.Core
 import Qtc.ClassTypes.Gui

Qtc/Classes/Qccs.hs

@@ -258,6 +258,7 @@ module Qtc.Classes.Qccs (
   , Qqy(..)
   ) where
 
+import Foreign.C.Types
 import Qtc.Enums.Core.Qt
 import Qtc.Enums.Core.QDir
 import Qtc.ClassTypes.Core

Qtc/Classes/Qccs_h.hs

@@ -89,6 +89,7 @@ module Qtc.Classes.Qccs_h (
   , QwheelEvent_h(..)
   ) where
 
+import Foreign.C.Types
 import Qtc.Enums.Core.Qt
 import Qtc.ClassTypes.Core
 import Qth.ClassTypes.Core

Qtc/Classes/Script.hs

@@ -22,6 +22,8 @@ module Qtc.Classes.Script (
   )
   where
 
+import Foreign.C.Types
+
 import Qtc.Classes.Base
 import Qtc.ClassTypes.Core
 import Qtc.Core.Base

Qtc/Classes/Tools.hs

@@ -14,6 +14,7 @@ module Qtc.Classes.Tools (
 
   ) where
 
+import Foreign.C.Types
 import Qtc.ClassTypes.Core
 import Qth.ClassTypes.Core
 import Qtc.ClassTypes.Gui

Qtc/Classes/Tools_h.hs

@@ -14,6 +14,7 @@ module Qtc.Classes.Tools_h (
 
   ) where
 
+import Foreign.C.Types
 import Qtc.ClassTypes.Core
 import Qth.ClassTypes.Core
 import Qtc.ClassTypes.Gui

Qtc/Classes/Types.hs

@@ -52,6 +52,7 @@ module Qtc.Classes.Types (
   , addForeignPtrFinalizer
   ) where
 
+import Foreign.C.Types
 import System.IO.Unsafe (unsafePerformIO)
 import Foreign.C
 import Foreign.Ptr

Qtc/Core.hs

@@ -95,6 +95,7 @@ module Qtc.Core (
   )
   where
 
+import Foreign.C.Types
 import Qtc.Classes.Base
 import Qtc.Core.Attributes
 import Qtc.Core.Base

Qtc/Core/Attributes.hs

@@ -109,6 +109,7 @@ module Qtc.Core.Attributes (
   ,switch, switch_
   ) where
 
+import Foreign.C.Types
 import Qtc.ClassTypes.Core
 import Qtc.Core.Base
 import Qtc.Classes.Base

Qtc/Core/Base.hs

@@ -46,6 +46,8 @@ import Qtc.ClassTypes.Core
 import Qtc.ClassTypes.Gui
 import System.Mem
 import Control.Concurrent
+import Foreign.C.Types(CInt(..))
+import Foreign.Ptr(FunPtr(..), Ptr(..))
 {-
 instance Ord (QObject a)  where
  (<) x1 x2
@@ -383,7 +385,7 @@ foreign import ccall "wrapper" wrapSlotHandler_bool :: (Ptr fun -> Ptr state ->
 
 foreign import ccall "qtc_connectSlot_ptr" qtc_connectSlot_ptr :: Ptr (TQObject a) -> CWString -> Ptr (TQObject b) -> CWString -> Ptr (Ptr fun -> Ptr state -> Ptr (TQObject c) -> Ptr d -> IO ()) -> Ptr () -> IO ()
 
-foreign import ccall "wrapper" wrapSlotHandler_ptr :: (Ptr fun -> Ptr state -> Ptr (TQObject c) -> Ptr d -> IO ()) -> IO (FunPtr (Ptr fun -> Ptr state -> Ptr (TQObject c) -> Ptr (TQObject d) -> IO ()))
+foreign import ccall "wrapper" wrapSlotHandler_ptr :: (Ptr fun -> Ptr state -> Ptr (TQObject c) -> Ptr d -> IO ()) -> IO (FunPtr (Ptr fun -> Ptr state -> Ptr (TQObject c) -> Ptr d -> IO ()))
 
 foreign import ccall "qtc_connectSlot_str" qtc_connectSlot_str :: Ptr (TQObject a) -> CWString -> Ptr (TQObject b) -> CWString -> Ptr (Ptr fun -> Ptr state -> Ptr (TQObject c) -> Ptr (TQString ()) -> IO ()) -> Ptr () -> IO ()
 

Qtc/Core/QAbstractItemModel.hs

@@ -20,6 +20,8 @@ module Qtc.Core.QAbstractItemModel (
   )
   where
 
+import Foreign.C.Types
+
 import Qth.ClassTypes.Core
 import Qtc.Enums.Base
 import Qtc.Enums.Core.Qt

Qtc/Core/QAbstractItemModel_h.hs

@@ -12,6 +12,8 @@
 
 module Qtc.Core.QAbstractItemModel_h where
 
+import Foreign.C.Types
+
 import Qtc.Enums.Base
 import Qtc.Enums.Core.Qt
 

Qtc/Core/QAbstractListModel.hs

@@ -17,6 +17,8 @@ module Qtc.Core.QAbstractListModel (
   )
   where
 
+import Foreign.C.Types
+
 import Qth.ClassTypes.Core
 import Qtc.Enums.Base
 import Qtc.Enums.Core.Qt

Qtc/Core/QAbstractListModel_h.hs

@@ -12,6 +12,8 @@
 
 module Qtc.Core.QAbstractListModel_h where
 
+import Foreign.C.Types
+
 import Qtc.Enums.Base
 import Qtc.Enums.Core.Qt
 

Qtc/Core/QAbstractTableModel.hs

@@ -17,6 +17,8 @@ module Qtc.Core.QAbstractTableModel (
   )
   where
 
+import Foreign.C.Types
+
 import Qth.ClassTypes.Core
 import Qtc.Enums.Base
 import Qtc.Enums.Core.Qt

Qtc/Core/QAbstractTableModel_h.hs

@@ -12,6 +12,8 @@
 
 module Qtc.Core.QAbstractTableModel_h where
 
+import Foreign.C.Types
+
 import Qtc.Enums.Base
 import Qtc.Enums.Core.Qt
 

Qtc/Core/QBasicTimer.hs

@@ -17,6 +17,8 @@ module Qtc.Core.QBasicTimer (
   )
   where
 
+import Foreign.C.Types
+
 import Qth.ClassTypes.Core
 import Qtc.Enums.Base
 

Qtc/Core/QChildEvent.hs

@@ -20,6 +20,8 @@ module Qtc.Core.QChildEvent (
   )
   where
 
+import Foreign.C.Types
+
 import Qth.ClassTypes.Core
 import Qtc.Enums.Base
 import Qtc.Enums.Core.QEvent

Qtc/Core/QCoreApplication.hs

@@ -47,6 +47,8 @@ module Qtc.Core.QCoreApplication (
   )
   where
 
+import Foreign.C.Types
+
 import Qth.ClassTypes.Core
 import Qtc.Enums.Base
 import Qtc.Enums.Core.Qt

Qtc/Core/QCoreApplication_h.hs

@@ -12,6 +12,8 @@
 
 module Qtc.Core.QCoreApplication_h where
 
+import Foreign.C.Types
+
 import Qtc.Enums.Base
 
 import Qtc.Classes.Base

Qtc/Core/QDataStream.hs

@@ -29,6 +29,7 @@ module Qtc.Core.QDataStream (
   )
   where
 
+import Foreign.C.Types
 import Qth.ClassTypes.Core
 import Qtc.Enums.Base
 import Qtc.Enums.Core.QIODevice

Qtc/Core/QDate.hs

@@ -37,6 +37,7 @@ module Qtc.Core.QDate (
   )
   where
 
+import Foreign.C.Types
 import Qth.ClassTypes.Core
 import Qtc.Enums.Base
 import Qtc.Enums.Core.Qt

Qtc/Core/QDateTime.hs

@@ -27,6 +27,7 @@ module Qtc.Core.QDateTime (
   )
   where
 
+import Foreign.C.Types
 import Qth.ClassTypes.Core
 import Qtc.Enums.Base
 import Qtc.Enums.Core.Qt

Qtc/Core/QDir.hs

@@ -47,6 +47,7 @@ module Qtc.Core.QDir (
   )
   where
 
+import Foreign.C.Types
 import Qth.ClassTypes.Core
 import Qtc.Enums.Base
 import Qtc.Enums.Core.QDir

Qtc/Core/QEvent.hs

@@ -20,6 +20,7 @@ module Qtc.Core.QEvent (
   )
   where
 
+import Foreign.C.Types
 import Qth.ClassTypes.Core
 import Qtc.Enums.Base
 import Qtc.Enums.Core.QEvent

Qtc/Core/QFile.hs

@@ -31,6 +31,7 @@ module Qtc.Core.QFile (
   )
   where
 
+import Foreign.C.Types
 import Qth.ClassTypes.Core
 import Qtc.Enums.Base
 import Qtc.Enums.Core.QIODevice

Qtc/Core/QFileInfo.hs

@@ -31,6 +31,7 @@ module Qtc.Core.QFileInfo (
   )
   where
 
+import Foreign.C.Types
 import Qth.ClassTypes.Core
 import Qtc.Enums.Base
 import Qtc.Enums.Core.QFile

Qtc/Core/QFile_h.hs

@@ -14,6 +14,7 @@ module Qtc.Core.QFile_h (
   QfileEngine_h(..)
   ) where
 
+import Foreign.C.Types
 import Qtc.Enums.Base
 import Qtc.Enums.Core.QIODevice
 

Qtc/Core/QIODevice.hs

@@ -22,6 +22,7 @@ module Qtc.Core.QIODevice (
   )
   where
 
+import Foreign.C.Types
 import Qth.ClassTypes.Core
 import Qtc.Enums.Base
 import Qtc.Enums.Core.QIODevice

Qtc/Core/QIODevice_h.hs

@@ -12,6 +12,7 @@
 
 module Qtc.Core.QIODevice_h where
 
+import Foreign.C.Types
 import Qtc.Enums.Base
 import Qtc.Enums.Core.QIODevice