1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
import Database.HaskellDB
import TestConnect
import Dp037.D3proj_users
getUsers =
do
users <- table d3proj_users
order [asc users last_name, asc users first_name]
project (first_name << users!first_name #
last_name << users!last_name #
email << users!email)
showUser u = "<li>" ++ u!first_name ++ " " ++ u!last_name
++ " (<tt>" ++ obfuscate (u!email)
++ "</tt>)</li>"
obfuscate addr = name ++ " AT " ++ safeTail domain
where
(name,domain) = break (=='@') addr
safeTail [] = []
safeTail (_:xs) = xs
printUserList db =
do
users <- query db getUsers
putStrLn "<ul>"
mapM_ (putStrLn . showUser) users
putStrLn "</ul>"
main = argConnect printUserList
|
