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

Renamed.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-20 16:18:50 +09:00
parent 697be129f7
commit 76054cd69f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -26,8 +26,8 @@ data NodeAttr = Just' | Maybe
data ProductTree q = Leaf NodeAttr q
| Join NodeAttr !(ProductTree q) !(ProductTree q) !(Maybe (Expr Bool))
joinAttr :: ProductTree q -> NodeAttr
joinAttr = d where
nodeAttr :: ProductTree q -> NodeAttr
nodeAttr = d where
d (Leaf jt _) = jt
d (Join jt _ _ _) = jt
@ -93,7 +93,7 @@ showQueryProduct = rec where
rec (Join _ left' right' rs) =
showUnwords
[urec left',
showWordsSQL [joinType (joinAttr left') (joinAttr right'), JOIN],
showWordsSQL [joinType (nodeAttr left') (nodeAttr right'), JOIN],
urec right',
showWordSQL ON,
showString . showExpr . fromMaybe valueTrue {- or error on compile -} $ rs]