summaryrefslogtreecommitdiff
path: root/ShareGuardDB
diff options
context:
space:
mode:
Diffstat (limited to 'ShareGuardDB')
-rw-r--r--ShareGuardDB/Directory.hibin0 -> 1983 bytes
-rw-r--r--ShareGuardDB/Directory.hs63
-rw-r--r--ShareGuardDB/Directory.obin0 -> 11020 bytes
-rw-r--r--ShareGuardDB/Directory_user.hibin0 -> 1736 bytes
-rw-r--r--ShareGuardDB/Directory_user.hs50
-rw-r--r--ShareGuardDB/Directory_user.obin0 -> 8716 bytes
-rw-r--r--ShareGuardDB/User.hibin0 -> 1980 bytes
-rw-r--r--ShareGuardDB/User.hs63
-rw-r--r--ShareGuardDB/User.obin0 -> 10912 bytes
9 files changed, 176 insertions, 0 deletions
diff --git a/ShareGuardDB/Directory.hi b/ShareGuardDB/Directory.hi
new file mode 100644
index 0000000..5623c8f
--- /dev/null
+++ b/ShareGuardDB/Directory.hi
Binary files differ
diff --git a/ShareGuardDB/Directory.hs b/ShareGuardDB/Directory.hs
new file mode 100644
index 0000000..1e51b10
--- /dev/null
+++ b/ShareGuardDB/Directory.hs
@@ -0,0 +1,63 @@
+{-# OPTIONS_GHC -fcontext-stack43 #-}
+-- NOTE: use GHC flag -fcontext-stack43 with this module if GHC < 6.8.1
+---------------------------------------------------------------------------
+-- Generated by DB/Direct
+---------------------------------------------------------------------------
+module ShareGuardDB.Directory where
+
+import Database.HaskellDB.DBLayout
+
+---------------------------------------------------------------------------
+-- Table type
+---------------------------------------------------------------------------
+
+type Directory =
+ (RecCons Id (Expr Integer)
+ (RecCons Name (Expr String)
+ (RecCons Owner_id (Expr Integer) RecNil)))
+
+---------------------------------------------------------------------------
+-- Table
+---------------------------------------------------------------------------
+directory :: Table Directory
+
+directory = baseTable "directory" $
+ hdbMakeEntry Id #
+ hdbMakeEntry Name #
+ hdbMakeEntry Owner_id
+
+---------------------------------------------------------------------------
+-- Fields
+---------------------------------------------------------------------------
+---------------------------------------------------------------------------
+-- Id Field
+---------------------------------------------------------------------------
+
+data Id = Id
+
+instance FieldTag Id where fieldName _ = "id"
+
+xid :: Attr Id Integer
+xid = mkAttr Id
+
+---------------------------------------------------------------------------
+-- Name Field
+---------------------------------------------------------------------------
+
+data Name = Name
+
+instance FieldTag Name where fieldName _ = "name"
+
+name :: Attr Name String
+name = mkAttr Name
+
+---------------------------------------------------------------------------
+-- Owner_id Field
+---------------------------------------------------------------------------
+
+data Owner_id = Owner_id
+
+instance FieldTag Owner_id where fieldName _ = "owner_id"
+
+owner_id :: Attr Owner_id Integer
+owner_id = mkAttr Owner_id
diff --git a/ShareGuardDB/Directory.o b/ShareGuardDB/Directory.o
new file mode 100644
index 0000000..4fee297
--- /dev/null
+++ b/ShareGuardDB/Directory.o
Binary files differ
diff --git a/ShareGuardDB/Directory_user.hi b/ShareGuardDB/Directory_user.hi
new file mode 100644
index 0000000..6bfa14b
--- /dev/null
+++ b/ShareGuardDB/Directory_user.hi
Binary files differ
diff --git a/ShareGuardDB/Directory_user.hs b/ShareGuardDB/Directory_user.hs
new file mode 100644
index 0000000..9600fdd
--- /dev/null
+++ b/ShareGuardDB/Directory_user.hs
@@ -0,0 +1,50 @@
+{-# OPTIONS_GHC -fcontext-stack42 #-}
+-- NOTE: use GHC flag -fcontext-stack42 with this module if GHC < 6.8.1
+---------------------------------------------------------------------------
+-- Generated by DB/Direct
+---------------------------------------------------------------------------
+module ShareGuardDB.Directory_user where
+
+import Database.HaskellDB.DBLayout
+
+---------------------------------------------------------------------------
+-- Table type
+---------------------------------------------------------------------------
+
+type Directory_user =
+ (RecCons User_id (Expr Integer)
+ (RecCons Directory_id (Expr Integer) RecNil))
+
+---------------------------------------------------------------------------
+-- Table
+---------------------------------------------------------------------------
+directory_user :: Table Directory_user
+
+directory_user = baseTable "directory_user" $
+ hdbMakeEntry User_id #
+ hdbMakeEntry Directory_id
+
+---------------------------------------------------------------------------
+-- Fields
+---------------------------------------------------------------------------
+---------------------------------------------------------------------------
+-- User_id Field
+---------------------------------------------------------------------------
+
+data User_id = User_id
+
+instance FieldTag User_id where fieldName _ = "user_id"
+
+user_id :: Attr User_id Integer
+user_id = mkAttr User_id
+
+---------------------------------------------------------------------------
+-- Directory_id Field
+---------------------------------------------------------------------------
+
+data Directory_id = Directory_id
+
+instance FieldTag Directory_id where fieldName _ = "directory_id"
+
+directory_id :: Attr Directory_id Integer
+directory_id = mkAttr Directory_id
diff --git a/ShareGuardDB/Directory_user.o b/ShareGuardDB/Directory_user.o
new file mode 100644
index 0000000..6dbbef6
--- /dev/null
+++ b/ShareGuardDB/Directory_user.o
Binary files differ
diff --git a/ShareGuardDB/User.hi b/ShareGuardDB/User.hi
new file mode 100644
index 0000000..d0a89cf
--- /dev/null
+++ b/ShareGuardDB/User.hi
Binary files differ
diff --git a/ShareGuardDB/User.hs b/ShareGuardDB/User.hs
new file mode 100644
index 0000000..682e5fe
--- /dev/null
+++ b/ShareGuardDB/User.hs
@@ -0,0 +1,63 @@
+{-# OPTIONS_GHC -fcontext-stack43 #-}
+-- NOTE: use GHC flag -fcontext-stack43 with this module if GHC < 6.8.1
+---------------------------------------------------------------------------
+-- Generated by DB/Direct
+---------------------------------------------------------------------------
+module ShareGuardDB.User where
+
+import Database.HaskellDB.DBLayout
+
+---------------------------------------------------------------------------
+-- Table type
+---------------------------------------------------------------------------
+
+type User =
+ (RecCons Id (Expr Integer)
+ (RecCons Username (Expr String)
+ (RecCons Password (Expr String) RecNil)))
+
+---------------------------------------------------------------------------
+-- Table
+---------------------------------------------------------------------------
+user :: Table User
+
+user = baseTable "user" $
+ hdbMakeEntry Id #
+ hdbMakeEntry Username #
+ hdbMakeEntry Password
+
+---------------------------------------------------------------------------
+-- Fields
+---------------------------------------------------------------------------
+---------------------------------------------------------------------------
+-- Id Field
+---------------------------------------------------------------------------
+
+data Id = Id
+
+instance FieldTag Id where fieldName _ = "id"
+
+xid :: Attr Id Integer
+xid = mkAttr Id
+
+---------------------------------------------------------------------------
+-- Username Field
+---------------------------------------------------------------------------
+
+data Username = Username
+
+instance FieldTag Username where fieldName _ = "username"
+
+username :: Attr Username String
+username = mkAttr Username
+
+---------------------------------------------------------------------------
+-- Password Field
+---------------------------------------------------------------------------
+
+data Password = Password
+
+instance FieldTag Password where fieldName _ = "password"
+
+password :: Attr Password String
+password = mkAttr Password
diff --git a/ShareGuardDB/User.o b/ShareGuardDB/User.o
new file mode 100644
index 0000000..1b46b28
--- /dev/null
+++ b/ShareGuardDB/User.o
Binary files differ