diff --git a/sql-words.cabal b/sql-words.cabal
--- a/sql-words.cabal
+++ b/sql-words.cabal
@@ -1,5 +1,5 @@
 name:                sql-words
-version:             0.1.1.0
+version:             0.1.2.0
 synopsis:            Simple idea SQL keywords data constructor into OverloadedString
 description:         This package contiains SQL keywords constructors defined as
                      OverloadedString literals and helper functions to concate these.
diff --git a/src/Language/SQL/Keyword/Internal/Type.hs b/src/Language/SQL/Keyword/Internal/Type.hs
--- a/src/Language/SQL/Keyword/Internal/Type.hs
+++ b/src/Language/SQL/Keyword/Internal/Type.hs
@@ -37,6 +37,9 @@
 isEmptyDString :: DString -> Bool
 isEmptyDString = null . showDString
 
+instance Eq DString where
+  x == y = showDString x == showDString y
+
 instance Show DString where
   show = showDString
 
@@ -139,3 +142,6 @@
 wordShow =  d  where
   d (Sequence s)   = showDString s
   d w              = show w
+
+instance Eq Keyword where
+  x == y = wordShow x == wordShow y