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

Update into exhaustive matches.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-03 16:48:09 +09:00
parent 0eae444f96
commit 7462bad615
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -48,6 +48,7 @@ restrictProduct :: ProductTree q -> UExpr Bool -> ProductTree q
restrictProduct = d where restrictProduct = d where
d (Join ja lp rp Nothing) rs' = Join ja lp rp (Just rs') d (Join ja lp rp Nothing) rs' = Join ja lp rp (Just rs')
d (Join ja lp rp (Just rs)) rs' = Join ja lp rp (Just $ rs `and` rs') d (Join ja lp rp (Just rs)) rs' = Join ja lp rp (Just $ rs `and` rs')
d leaf@(Leaf _ _) _ = leaf -- or error on compile
newtype Product = Tree QueryProduct newtype Product = Tree QueryProduct
@ -87,7 +88,7 @@ showQueryProduct = rec where
showWordsSQL [joinType (joinAttr left') (joinAttr right'), JOIN], showWordsSQL [joinType (joinAttr left') (joinAttr right'), JOIN],
urec right', urec right',
showWordSQL ON, showWordSQL ON,
showString . showExpr . fromMaybe valueTrue $ rs] showString . showExpr . fromMaybe valueTrue {- or error on compile -} $ rs]
productSQL :: Product -> String productSQL :: Product -> String
productSQL = d where productSQL = d where