diff --git a/relational-query-HDBC.cabal b/relational-query-HDBC.cabal
--- a/relational-query-HDBC.cabal
+++ b/relational-query-HDBC.cabal
@@ -1,5 +1,5 @@
 name:                relational-query-HDBC
-version:             0.3.0.0
+version:             0.3.1.0
 synopsis:            HDBC instance of relational-query and typed query interface for HDBC
 description:         This package contains the HDBC instance of relational-query and
                      the typed query interface for HDBC.
diff --git a/src/Database/HDBC/SqlValueExtra.hs b/src/Database/HDBC/SqlValueExtra.hs
--- a/src/Database/HDBC/SqlValueExtra.hs
+++ b/src/Database/HDBC/SqlValueExtra.hs
@@ -12,9 +12,10 @@
 module Database.HDBC.SqlValueExtra () where
 
 import Data.Convertible (Convertible(safeConvert), ConvertResult)
-import Data.Int (Int16, Int32)
+import Data.Int (Int8, Int16, Int32)
 import Database.HDBC (SqlValue)
 
+-- Convert from narrower width than Int32
 safeConvertFromIntegral32 :: Integral a => a -> ConvertResult SqlValue
 safeConvertFromIntegral32 i =
   safeConvert (fromIntegral i :: Int32)
@@ -22,6 +23,12 @@
 safeConvertToIntegral32 :: Integral a => SqlValue -> ConvertResult a
 safeConvertToIntegral32 v =
   fmap fromIntegral (safeConvert v :: ConvertResult Int32)
+
+instance Convertible Int8 SqlValue where
+  safeConvert = safeConvertFromIntegral32
+
+instance Convertible SqlValue Int8 where
+  safeConvert = safeConvertToIntegral32
 
 instance Convertible Int16 SqlValue where
   safeConvert = safeConvertFromIntegral32