Skip to content
Browse files

suppress warnings for unimplemented types for now: these will raise r…

…untime errors until I can get around to implementing them.

--HG--
extra : convert_revision : 7aa697548a6be8ab42d011e1868de9096ad448d7
  • Loading branch information...
1 parent e6263c7 commit 12363c15c10cff8d3129a57057be65b3b67763af @waterson waterson committed Apr 18, 2010
Showing with 24 additions and 0 deletions.
  1. +24 −0 Database/HDBC/MySQL/Connection.hsc
View
24 Database/HDBC/MySQL/Connection.hsc
@@ -434,6 +434,30 @@ bindOfSqlValue (Types.SqlTimeDiff n) = do
buf_ <- new t
bindOfSqlValue' (#{const sizeof(MYSQL_TIME)}::Int) buf_ #{const MYSQL_TYPE_TIME} Signed
+bindOfSqlValue (Types.SqlLocalDate _) =
+ error "SqlLocalDate: bind type not implemented"
+
+bindOfSqlValue (Types.SqlLocalTimeOfDay _) =
+ error "SqlLocalTimeOfDay: bind type not implemented"
+
+bindOfSqlValue (Types.SqlZonedLocalTimeOfDay _ _) =
+ error "SqlZonedLocalTimeOfDay: bind type not implemented"
+
+bindOfSqlValue (Types.SqlLocalTime _) =
+ error "SqlLocalTime: bind type not implemented"
+
+bindOfSqlValue (Types.SqlZonedTime _) =
+ error "SqlZonedTime: bind type not implemented"
+
+bindOfSqlValue (Types.SqlUTCTime _) =
+ error "SqlUTCTime: bind type not implemented"
+
+bindOfSqlValue (Types.SqlDiffTime _) =
+ error "SqlDiffTime: bind type not implemented"
+
+bindOfSqlValue (Types.SqlPOSIXTime _) =
+ error "SqlPOSIXtime: bind type not implemented"
+
-- A nasty helper function that cuts down on the boilerplate a bit.
bindOfSqlValue' :: (Integral a, Storable b) => a -> Ptr b -> CInt -> Signedness -> IO MYSQL_BIND

0 comments on commit 12363c1

Please sign in to comment.
Something went wrong with that request. Please try again.