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.0.1.0
+version:             0.0.1.2
 synopsis:            RDBMSs' schema templates for relational-query
 description:         This package contains some RDBMSs' schema structure definitions.
                      Supported RDBMS schemas are below:
@@ -9,7 +9,7 @@
                      - SQLite3
                      - Oracle
                      - MySQL
-homepage:            http://twitter.com/khibino
+homepage:            http://khibino.github.io/haskell-relational-record/
 license:             BSD3
 license-file:        LICENSE
 author:              Kei Hibino, Shohei Murayama, Shohei Yasutake, Sho KURODA
diff --git a/src/Database/Relational/Schema/SQLServer.hs b/src/Database/Relational/Schema/SQLServer.hs
--- a/src/Database/Relational/Schema/SQLServer.hs
+++ b/src/Database/Relational/Schema/SQLServer.hs
@@ -14,7 +14,7 @@
 import Control.Applicative ((<|>))
 import Data.ByteString (ByteString)
 import Data.Char (toLower)
-import Data.Int (Int32, Int64)
+import Data.Int (Int8, Int16, Int32, Int64)
 import Data.Map (Map)
 import Data.Time (LocalTime, Day, TimeOfDay)
 import Database.Record.Instances ()
@@ -32,21 +32,18 @@
 
 mapFromSqlDefault :: Map String TypeQ
 mapFromSqlDefault =
-    Map.fromList [ ("image",         [t|ByteString|])
-                 , ("text",          [t|ByteString|])
+    Map.fromList [ ("text",          [t|ByteString|])
                  , ("date",          [t|Day|])
                  , ("time",          [t|TimeOfDay|])
-                 , ("tinyint",       [t|Int32|])
-                 , ("smallint",      [t|Int32|])
+                 , ("tinyint",       [t|Int8|])
+                 , ("smallint",      [t|Int16|])
                  , ("int",           [t|Int32|])
-                 , ("smalldatetime", [t|LocalTime|])
                  , ("real",          [t|Double|])
                  , ("datetime",      [t|LocalTime|])
                  , ("float",         [t|Double|])
                  , ("ntext",         [t|String|])
                  , ("bit",           [t|Char|])
                  , ("bigint",        [t|Int64|])
-                 , ("varbinary",     [t|String|])
                  , ("varchar",       [t|String|])
                  , ("binary",        [t|ByteString|])
                  , ("char",          [t|String|])