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
34
35
|
---------------------------------------------------------------------------
-- Generated by DB/Direct
---------------------------------------------------------------------------
module ShareGuardDB where
import Database.HaskellDB.DBLayout
import qualified ShareGuardDB.User
import qualified ShareGuardDB.Directory_user
import qualified ShareGuardDB.Directory
import Database.HaskellDB.DBSpec.PPHelpers ( mkIdentPreserving )
authnz :: DBInfo
authnz = DBInfo {dbname = "Authnz",
opts = DBOptions {useBString = False, makeIdent = mkIdentPreserving},
tbls = [TInfo {tname = "user",
cols = [CInfo {cname = "id",
descr = (IntegerT, False)},
CInfo {cname = "username",
descr = (StringT, False)},
CInfo {cname = "password",
descr = (StringT, False)}]},
TInfo {tname = "directory_user",
cols = [CInfo {cname = "user_id",
descr = (IntegerT, False)},
CInfo {cname = "directory_id",
descr = (IntegerT, False)}]},
TInfo {tname = "directory",
cols = [CInfo {cname = "id",
descr = (IntegerT, False)},
CInfo {cname = "name",
descr = (StringT, False)},
CInfo {cname = "owner_id",
descr = (IntegerT, False)}]}]}
|
