khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-14 22:32:07 +03:00
Code Issues Projects Releases Wiki Activity

Add unit product support flag.

Browse Source
This commit is contained in:
Kei Hibino 2013-09-05 22:52:52 +09:00
parent aabd2c0a27
commit 8a0507ca1d
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
relational-join/src/Database/Relational/Query/Sub.hs
View File

@ -36,6 +36,8 @@ module Database.Relational.Query.Sub (
queryProductSQL,
UnitProductSupport (..),
JoinProduct,
-- * Query restriction
@ -63,7 +65,7 @@ import Database.Relational.Query.Table
import qualified Database.Relational.Query.Table as Table
import Database.Relational.Query.Internal.String
(showUnwordsSQL, showWordSQL, showUnwords, paren)
(showUnwordsSQL, showWordSQL, showWordSQL', showUnwords, paren)
import Language.SQL.Keyword (Keyword(..), unwordsSQL)
import qualified Language.SQL.Keyword as SQL
import qualified Language.SQL.Keyword.ConcatString as SQLs
@ -303,10 +305,14 @@ queryProductSQL = ($ "") . showsQueryProduct
-- | Type for join product of query.
type JoinProduct = Maybe QueryProduct
-- | Shows join product of query.
_showsJoinProduct :: Maybe QueryProduct -> ShowS
_showsJoinProduct = maybe (error "relation: empty product!") showsQueryProduct
data UnitProductSupport = UPSupported | UPNotSupported
-- | Shows join product of query.
_showsJoinProduct :: UnitProductSupport -> Maybe QueryProduct -> ShowS
_showsJoinProduct ups = maybe (up ups) from where
from qp = showWordSQL' FROM . showsQueryProduct qp
up UPSupported = showString ""
up UPNotSupported = error "relation: Unit product support mode is disabled!"
-- | Type for restriction of query.
type QueryRestriction c = Maybe (Expr c Bool)