File: test-sum.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-- 363 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 Dp037.D3proj_time_reports


q   = do
      reports <- table d3proj_time_reports
      project (userid << reports!userid 
	      # xid << _sum (reports!xid))

test db 
    = do
      result <- query db q
      mapM_ (putStrLn . show) result

main = do
       putStrLn $ show $ showSql q
       argConnect test