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

Use newtype.

Browse Source
This commit is contained in:
Kei Hibino 2013-08-28 09:46:09 +09:00
parent eef1aa6bdc
commit 1d3d14a376
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
relational-join/src/Database/Relational/Query/Monad/Trans/JoinState.hs
View File

@ -34,8 +34,9 @@ import qualified Language.SQL.Keyword as SQL
-- | JoinContext type for QueryJoin.
data JoinContext = JoinContext
{ product :: Maybe QueryProductNode }
newtype JoinContext =
JoinContext
{ product :: Maybe QueryProductNode }
-- | Initial 'JoinContext'.
primeJoinContext :: JoinContext