File: same-name.hs

package info (click to toggle)
haskelldb 0.9.cvs.601-13
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 680 kB
  • ctags: 33
  • sloc: haskell: 4,392; sh: 1,900; makefile: 130
file content (20 lines) | stat: -rw-r--r-- 434 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
import Database.HaskellDB

import TestConnect

import qualified Dp037.D3proj_time_reports as R
import qualified Dp037.D3proj_users as U

q = do
    reports <- table R.d3proj_time_reports
    users <- table U.d3proj_users
    project (R.xid << reports!R.xid
	     # U.xid << users!U.xid)

test db = do
	  rs <- query db q
	  mapM_ (\r -> print (r!R.xid, r!U.xid)) rs

main = do
       putStrLn $ show $ showSql q
       argConnect test