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

an example.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-12-20 14:50:12 +09:00
parent a4d831eb56
commit d158f27ef8
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
examples.md
View File

@ -96,7 +96,17 @@ FROM account
ORDER BY open_emp_id, product_cd;
{% endhighlight %}
HRR: TBD
HRR:
{% highlight haskell %}
account_3_7 :: Relation () (Maybe Int64, String)
account_3_7 = relation $ do
a <- query account
let proj = (,) |$| a ! Account.openEmpId'
|*| a ! Account.productCd'
asc proj
return proj
{% endhighlight %}
#### Using the is null operator and the date literal