1 files changed, 63 insertions, 0 deletions
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