diff --git a/relational-join/src/Database/Relational/Query/Internal/Product.hs b/relational-join/src/Database/Relational/Query/Internal/Product.hs
index 62046189..da18023f 100644
--- a/relational-join/src/Database/Relational/Query/Internal/Product.hs
+++ b/relational-join/src/Database/Relational/Query/Internal/Product.hs
@@ -14,7 +14,7 @@ import Database.Relational.Query.Sub (SubQuery)
 import qualified Database.Relational.Query.Sub as SubQuery
 
 import Database.Relational.Query.Internal.ShowS
-  (showWordsSQL, showWordSQL, showUnwords)
+  (showUnwordsSQL, showWordSQL, showUnwords)
 import Language.SQL.Keyword (Keyword(..))
 
 import Data.Maybe (fromMaybe)
@@ -86,7 +86,7 @@ showQueryProduct =  rec  where
   rec (Join left' right' rs) =
     showUnwords
     [urec left',
-     showWordsSQL [joinType (nodeAttr left') (nodeAttr right'), JOIN],
+     showUnwordsSQL [joinType (nodeAttr left') (nodeAttr right'), JOIN],
      urec right',
      showWordSQL ON,
      showString . showExpr
diff --git a/relational-join/src/Database/Relational/Query/Internal/ShowS.hs b/relational-join/src/Database/Relational/Query/Internal/ShowS.hs
index b0cccc83..2a2eddaa 100644
--- a/relational-join/src/Database/Relational/Query/Internal/ShowS.hs
+++ b/relational-join/src/Database/Relational/Query/Internal/ShowS.hs
@@ -10,15 +10,15 @@
 -- This module provides SQL string concatination functions
 -- which result is ShowS differential lists.
 module Database.Relational.Query.Internal.ShowS (
-  showWordsSQL, showWordSQL, showUnwords
+  showUnwordsSQL, showWordSQL, showUnwords
   ) where
 
 import Language.SQL.Keyword (unwordsSQL)
 import qualified Language.SQL.Keyword as SQL
 
 -- | Unwords 'SQL.Keyword' list and resturns 'ShowS'.
-showWordsSQL :: [SQL.Keyword] -> ShowS
-showWordsSQL =  showString . unwordsSQL
+showUnwordsSQL :: [SQL.Keyword] -> ShowS
+showUnwordsSQL =  showString . unwordsSQL
 
 -- | From 'SQL.Keyword' into 'ShowS'.
 showWordSQL :: SQL.Keyword -> ShowS