diff --git a/Database/Record/TH/SQLite3.hs b/Database/Record/TH/SQLite3.hs
--- a/Database/Record/TH/SQLite3.hs
+++ b/Database/Record/TH/SQLite3.hs
@@ -14,7 +14,7 @@
 defineTable fileName tableName =
   defineTableFromDB
     (connectSqlite3 fileName)
-    (driverSQLite3 { typeMap = [("FLOAT", [t|Double|])] }) -- overwrite the default type map with yours
+    (driverSQLite3 { typeMap = [("FLOAT", [t|Double|]), ("INTEGER", [t|Int|])] }) -- overwrite the default type map with yours
     "main" -- schema name, ignored by SQLite
     tableName
     [''Show]
diff --git a/relational-record-examples.cabal b/relational-record-examples.cabal
--- a/relational-record-examples.cabal
+++ b/relational-record-examples.cabal
@@ -1,5 +1,5 @@
 name:                relational-record-examples
-version:             0.3.0.1
+version:             0.3.1.0
 synopsis:            Examples of Haskell Relationa Record
 description:         Provides examples of Haskell Relational Record
 license:             BSD3
diff --git a/src/examples.hs b/src/examples.hs
--- a/src/examples.hs
+++ b/src/examples.hs
@@ -7,7 +7,7 @@
 import Database.Relational.Query.SQLite3
 
 import Prelude hiding (product)
-import Data.Int (Int32, Int64)
+import Data.Int (Int64)
 import Data.Time (Day, LocalTime)
 
 import qualified Account
@@ -71,7 +71,7 @@
 --   ('CHK', 'SAV', 'CD', 'MM'))
 -- @
 --
-account_4_3_3aT :: Relation () (((Int32, String), Int32), Maybe Double)
+account_4_3_3aT :: Relation () (((Int, String), Int), Maybe Double)
 account_4_3_3aT = relation $ do
   a  <- query account
   wheres $ a ! Account.productCd' `in'` values ["CHK", "SAV", "CD", "MM"]
@@ -98,9 +98,9 @@
                     |*| a ! Account.availBalance'
 
 data Account1 = Account1
-  { a1AccountId :: Int32
+  { a1AccountId :: Int
   , a1ProductCd :: String
-  , a1CustId :: Int32
+  , a1CustId :: Int
   , a1AvailBalance :: Maybe Double
   } deriving (Show)
 
@@ -226,7 +226,7 @@
 --   WHERE (T1.product_cd = 'SAV')
 -- @
 --
-union_6_4_1a_Flat :: Relation () (Maybe Int32, Maybe Int32)
+union_6_4_1a_Flat :: Relation () (Maybe Int, Maybe Int)
 union_6_4_1a_Flat = relation (do
     e  <- query employee
     wheres $ e ! Employee.title' .=. just (value "Teller")
@@ -252,19 +252,19 @@
 --   T2.f0 ASC
 -- @
 --
-union_6_4_1a_Nest :: Relation () (Maybe Int32, Maybe Int32)
+union_6_4_1a_Nest :: Relation () (Maybe Int, Maybe Int)
 union_6_4_1a_Nest = relation $ do
   ea <- query $ employee_6_4_1a `union` account_6_4_1a
   asc $ ea ! fst'
   return ea
 
-employee_6_4_1a :: Relation () (Maybe Int32, Maybe Int32)
+employee_6_4_1a :: Relation () (Maybe Int, Maybe Int)
 employee_6_4_1a = relation $ do
   e  <- query employee
   wheres $ e ! Employee.title' .=. just (value "Teller")
   return $ just (e ! Employee.empId') >< e ! Employee.assignedBranchId'
 
-account_6_4_1a :: Relation () (Maybe Int32, Maybe Int32)
+account_6_4_1a :: Relation () (Maybe Int, Maybe Int)
 account_6_4_1a = relation $ do
   a  <- query account
   wheres $ a ! Account.productCd' .=. value "SAV"
@@ -288,7 +288,7 @@
 --  MAIN.account T0 GROUP BY T0.open_emp_id ORDER BY T0.open_emp_id ASC
 -- @
 --
-group_8_1a :: Relation () (Maybe Int32, Int64)
+group_8_1a :: Relation () (Maybe Int, Int64)
 group_8_1a = aggregateRelation $ do
   a  <- query account
   g  <- groupBy $ a ! Account.openEmpId'
@@ -334,7 +334,7 @@
 --   (T1.product_type_cd = ?)))
 -- @
 --
-account_4_3_3bT :: Relation String (((Int32, String), Int32), Maybe Double)
+account_4_3_3bT :: Relation String (((Int, String), Int), Maybe Double)
 account_4_3_3bT = relation' $ do
   a <- query account
   (phProductCd,p) <- queryList' product_4_3_3b
@@ -412,7 +412,7 @@
 --   T0 ORDER BY T0.open_emp_id ASC, T0.product_cd ASC
 -- @
 --
-account_3_7 :: Relation () (Maybe Int32, String)
+account_3_7 :: Relation () (Maybe Int, String)
 account_3_7 = relation $ do
   a <- query account
   let proj = (,) |$| a ! Account.openEmpId'
@@ -448,7 +448,7 @@
                     |*| a ! Account.availBalance'
 
 data Account2 = Account2
-  { a2AccountId :: Int32
+  { a2AccountId :: Int
   , a2ProductCd :: String
   , a2OpenDate :: Day
   , a2AvailBalance :: Maybe Double
@@ -490,7 +490,7 @@
                      |*| e ! Employee.lname'
 
 data Employee1 = Employee1
-  { e1EmpId :: Int32
+  { e1EmpId :: Int
   , e1Title :: Maybe String
   , e1StartDate :: Day
   , e1Fname :: String
@@ -612,7 +612,7 @@
                      |*| date
 
 data Employee2 = Employee2
-  { e2EmpId :: Int32
+  { e2EmpId :: Int
   , e2Fname :: String
   , e2Lname :: String
   , e2StartDate :: Day
@@ -664,8 +664,8 @@
                     |*| a ! Account.productCd'
 
 data Account3 = Account3
-  { a3AccountId :: Int32
-  , a3CustId :: Int32
+  { a3AccountId :: Int
+  , a3CustId :: Int
   , a3OpenDate :: Day
   , a3ProductCd :: String
   } deriving (Show)
@@ -736,7 +736,7 @@
   return (customer1 c)
 
 data Customer1 = Customer1
-  { c1Custid :: Int32
+  { c1Custid :: Int
   , c1CustTypeCd :: String
   , c1City :: Maybe String
   } deriving (Show)
@@ -784,7 +784,7 @@
 --     fmap fst $ placeholder (\ph -> wheres $ proj ! Account.accountId' .=. ph)
 -- @
 --
-deleteAccount_o1P :: Delete Int32
+deleteAccount_o1P :: Delete Int
 deleteAccount_o1P = derivedDelete $ \proj -> do
   fmap fst $ placeholder (\ph -> wheres $ proj ! Account.accountId' .=. ph)
 
@@ -818,7 +818,7 @@
 --   ?))
 -- @
 --
-deleteAccount_o2P :: Delete (Int32, Int32)
+deleteAccount_o2P :: Delete (Int, Int)
 deleteAccount_o2P = derivedDelete $ \proj -> do
   (phMin,()) <- placeholder (\ph -> wheres $ proj ! Account.accountId' .>=. ph)
   (phMax,()) <- placeholder (\ph -> wheres $ proj ! Account.accountId' .<=. ph)
@@ -894,7 +894,7 @@
 --     return (phLname >< phDeptId >< phEmpId)
 -- @
 --
-updateEmployee_o3P :: Update ((String,Int32),Int32)
+updateEmployee_o3P :: Update ((String,Int),Int)
 updateEmployee_o3P = derivedUpdate $ \proj -> do
   (phLname,()) <- placeholder (\ph -> Employee.lname' <-# ph)
   (phDeptId,()) <- placeholder (\ph -> Employee.deptId' <-# just ph)
@@ -1062,9 +1062,9 @@
   { e3Fname :: String
   , e3Lname :: String
   , e3StartDate :: Day
-  , e3DeptId :: Maybe Int32
+  , e3DeptId :: Maybe Int
   , e3Title :: Maybe String
-  , e3AssignedBranchId :: Maybe Int32
+  , e3AssignedBranchId :: Maybe Int
   }
 
 $(makeRecordPersistableDefault ''Employee3)
@@ -1175,8 +1175,8 @@
                     |*| i ?! Individual.lname'
 
 data Account4 = Account4
-  { a4AccountId :: Int32
-  , a4CustId :: Int32
+  { a4AccountId :: Int
+  , a4CustId :: Int
   , a4Fname :: Maybe String
   , a4Lname :: Maybe String
   } deriving (Show)
@@ -1204,7 +1204,7 @@
 -- Note: A function using right-out-join can be defined, but unfortunately
 -- SQLite3 does not support it.
 --
-business_RightOuterJoin :: Relation () (Maybe Int32, String)
+business_RightOuterJoin :: Relation () (Maybe Int, String)
 business_RightOuterJoin = relation $ do
   c <- queryMaybe customer
   b <- query business