diff --git a/relational-query-HDBC/src/Database/HDBC/Schema/MySQL.hs b/relational-query-HDBC/src/Database/HDBC/Schema/MySQL.hs
index 67a9a8dd..dac2719c 100644
--- a/relational-query-HDBC/src/Database/HDBC/Schema/MySQL.hs
+++ b/relational-query-HDBC/src/Database/HDBC/Schema/MySQL.hs
@@ -1,6 +1,15 @@
 {-# OPTIONS_GHC -fno-warn-orphans  #-}
 {-# LANGUAGE TemplateHaskell       #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
+
+-- |
+-- Module      : Database.HDBC.Schema.MySQL
+-- Copyright   : 2013 Sho KURODA
+-- License     : BSD3
+--
+-- Maintainer  : krdlab@gmail.com
+-- Stability   : experimental
+-- Portability : unknown
 module Database.HDBC.Schema.MySQL
     (
       driverMySQL
diff --git a/relational-query-HDBC/src/Database/HDBC/Schema/Oracle.hs b/relational-query-HDBC/src/Database/HDBC/Schema/Oracle.hs
index 3e9d96ec..800e5f75 100644
--- a/relational-query-HDBC/src/Database/HDBC/Schema/Oracle.hs
+++ b/relational-query-HDBC/src/Database/HDBC/Schema/Oracle.hs
@@ -1,6 +1,14 @@
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 {-# LANGUAGE TemplateHaskell, MultiParamTypeClasses #-}
 
+-- |
+-- Module      : Database.HDBC.Schema.MySQL
+-- Copyright   : 2013 Shohei Yasutake
+-- License     : BSD3
+--
+-- Maintainer  : amutake.s@gmail.com
+-- Stability   : experimental
+-- Portability : unknown
 module Database.HDBC.Schema.Oracle
     ( driverOracle
     ) where
diff --git a/relational-query-HDBC/src/Database/HDBC/Schema/SQLServer.hs b/relational-query-HDBC/src/Database/HDBC/Schema/SQLServer.hs
index 314d6e56..574fba3e 100644
--- a/relational-query-HDBC/src/Database/HDBC/Schema/SQLServer.hs
+++ b/relational-query-HDBC/src/Database/HDBC/Schema/SQLServer.hs
@@ -89,6 +89,7 @@ getColumns' tmap conn lchan scm tbl = maybeIO ([], []) id $ do
     types <- mapM getType' rows
     return (types, notNullIdxs)
 
+-- | Driver implementation
 driverSQLServer :: IConnection conn => Driver conn
 driverSQLServer =
     emptyDriver { getFieldsWithMap = getColumns' }
diff --git a/relational-query-HDBC/src/Database/HDBC/Schema/SQLite3.hs b/relational-query-HDBC/src/Database/HDBC/Schema/SQLite3.hs
index a253e10b..6dca1571 100644
--- a/relational-query-HDBC/src/Database/HDBC/Schema/SQLite3.hs
+++ b/relational-query-HDBC/src/Database/HDBC/Schema/SQLite3.hs
@@ -107,6 +107,7 @@ getColumns' tmap conn lchan scm tbl = maybeIO ([], []) id $ do
     types <- mapM getType' rows
     return (types, notNullIdxs)
 
+-- | Driver implementation
 driverSQLite3 :: IConnection conn => Driver conn
 driverSQLite3 =
     emptyDriver { getFieldsWithMap = getColumns' }