Update haddocks.

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

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

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' }

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' }