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

drop unused definition.

Browse Source
This commit is contained in:
Kei Hibino 2016-08-16 16:11:58 +09:00
parent 00337b533f
commit 5c13a5193a
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
relational-query/src/Database/Relational/Query/Internal/Sub.hs
View File

@ -16,7 +16,7 @@ module Database.Relational.Query.Internal.Sub
-- * Product tree type
, NodeAttr (..), ProductTree (..), Node (..)
, JoinProduct, QueryProductTree, QueryProduct
, JoinProduct, QueryProductTree
, ProductTreeBuilder, ProductBuilder
, Projection, untypeProjection, typedProjection
@ -91,8 +91,6 @@ data Node rs = Node !NodeAttr !(ProductTree rs) deriving (Show, Functor)
-- | Product tree specialized by 'SubQuery'.
type QueryProductTree = ProductTree (QueryRestriction Flat)
-- | Product node specialized by 'SubQuery'.
type QueryProduct = Node (QueryRestriction Flat)
type ProductTreeBuilder = ProductTree QueryRestrictionBuilder
type ProductBuilder = Node QueryRestrictionBuilder