diff --git a/relational-schemas.cabal b/relational-schemas.cabal
--- a/relational-schemas.cabal
+++ b/relational-schemas.cabal
@@ -1,5 +1,5 @@
 name:                relational-schemas
-version:             0.1.0.2
+version:             0.1.1.0
 synopsis:            RDBMSs' schema templates for relational-query
 description:         This package contains some RDBMSs' schema structure definitions.
                      Supported RDBMS schemas are below:
diff --git a/src/Database/Relational/Schema/MySQL.hs b/src/Database/Relational/Schema/MySQL.hs
--- a/src/Database/Relational/Schema/MySQL.hs
+++ b/src/Database/Relational/Schema/MySQL.hs
@@ -8,7 +8,7 @@
     )
     where
 
-import           Data.Int               (Int32, Int64)
+import           Data.Int               (Int8, Int16, Int32, Int64)
 import           Data.Char              (toLower, toUpper)
 import           Data.Map               (Map, fromList)
 import qualified Data.Map               as Map
@@ -38,6 +38,8 @@
 import           Database.Relational.Schema.MySQLInfo.KeyColumnUsage    (keyColumnUsage)
 import qualified Database.Relational.Schema.MySQLInfo.KeyColumnUsage    as Keycoluse
 
+-- TODO: Need to check unsigned int types to avoid wrong mapping
+
 mapFromSqlDefault :: Map String TypeQ
 mapFromSqlDefault = fromList
     [ ("CHAR",       [t| String |])
@@ -54,8 +56,9 @@
     , ("DATETIME",   [t| LocalTime |])
     , ("TIME",       [t| TimeOfDay |])
     , ("TIMESTAMP",  [t| POSIXTime |])
-    , ("TINYINT",    [t| Int32 |])
-    , ("SMALLINT",   [t| Int32 |])
+    , ("TINYINT",    [t| Int8 |])
+    , ("SMALLINT",   [t| Int16 |])
+    , ("MEDIUMINT",  [t| Int32 |])
     , ("INT",        [t| Int32 |])
     , ("INTEGER",    [t| Int32 |])
     , ("BIGINT",     [t| Int64 |])