khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-29 14:45:51 +03:00
Code Issues Projects Releases Wiki Activity

add functor instance of product-tree.

Browse Source
This commit is contained in:
Kei Hibino 2016-08-16 15:14:29 +09:00
parent 0e95261200
commit 8f1232e73d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,3 +1,5 @@
{-# LANGUAGE DeriveFunctor #-}
-- |
-- Module : Database.Relational.Query.Internal.Sub
-- Copyright : 2015 Kei Hibino
@ -82,10 +84,10 @@ type QueryRestrictionsBuilder = DList (Projection Context.Flat (Maybe Bool))
data ProductTree rs
= Leaf QS
| Join !(Node rs) !(Node rs) !rs
deriving Show
deriving (Show, Functor)
-- | Product node. node attribute and product tree.
data Node rs = Node !NodeAttr !(ProductTree rs) deriving Show
data Node rs = Node !NodeAttr !(ProductTree rs) deriving (Show, Functor)
-- | Product tree specialized by 'SubQuery'.
type QueryProduct = ProductTree QueryRestrictionsBuilder