khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-15 06:43:04 +03:00
Code Issues Projects Releases Wiki Activity

Renamed.

Browse Source
This commit is contained in:
Kei Hibino 2013-06-03 01:53:23 +09:00
parent cbc34dbc23
commit bb5e4e185e
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
relational-join/src/Database/Relational/Query/Internal/Product.hs
View File

@ -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

6
relational-join/src/Database/Relational/Query/Internal/ShowS.hs
View File

@ -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