From 472765d66a586957254f1c3e757f7c7f5d40c906 Mon Sep 17 00:00:00 2001
From: Kei Hibino <ex8k.hibino@gmail.com>
Date: Mon, 12 May 2014 18:14:38 +0900
Subject: [PATCH] Update haddock.

---
 sql-words/src/Language/SQL/Keyword/Internal/Type.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/sql-words/src/Language/SQL/Keyword/Internal/Type.hs b/sql-words/src/Language/SQL/Keyword/Internal/Type.hs
index 63ee2436..23abb616 100644
--- a/sql-words/src/Language/SQL/Keyword/Internal/Type.hs
+++ b/sql-words/src/Language/SQL/Keyword/Internal/Type.hs
@@ -100,9 +100,11 @@ data Keyword = SELECT | ALL | DISTINCT | ON
              -}
 
 
+-- | Wrap 'DString' into 'Keyword'
 fromDString :: DString -> Keyword
 fromDString =  Sequence
 
+-- | Unwrap 'Keyword' into 'DString'
 toDString :: Keyword -> DString
 toDString = d  where
   d (Sequence ds) = ds