Commits

Anonymous committed 55c0dbc

derive Typeable for missing data types

Comments (0)

Files changed (1)

Database/MySQL/Base.hs

       connFP :: ForeignPtr MYSQL
     , connClose :: IO ()
     , connResult :: IORef (Maybe (Weak Result))
-    }
+    } deriving (Typeable)
 
 -- | Result of a database query.
 data Result = Result {
     , resFetchLengths :: Ptr MYSQL_RES -> IO (Ptr CULong)
     , resFreeResult :: Ptr MYSQL_RES -> IO ()
     } | EmptyResult
+  deriving (Typeable)
 
 -- | A row cursor, used by 'rowSeek' and 'rowTell'.
 newtype Row = Row MYSQL_ROW_OFFSET
+  deriving (Typeable)
 
 -- | Default information for setting up a connection.
 --