anchor.diff:  GRANT USAGE ON SCHEMA {0} to {0};
   ALTER DEFAULT PRIVILEGES IN SCHEMA {0} GRANT SELECT ON TABLES TO {0};
   GRANT CONNECT ON DATABASE "{0}" to {0};""", dbname)
  +
  +(*
  +
  +CREATE TABLES
  +
  +*)
   
   let columnTypeTemplate field =
     match field.FieldType with
  
positive.code:   |> string |> int
    """ page.AsType page.AsFormVal page.AsFormType site.AsDatabase page.AsTable (insertColumns page) (insertValues page) idField.AsDBColumn (insertParamsTemplate page)
  
  let updateTemplate site page =
    ""
  
  let tryByIdTemplate site page =
    let idField = page.Fields |> List.find (fun field -> field.FieldType = Id)
  
negative.code:   |> List.map (createTableTemplate site.AsDatabase)
    |> flatten
  
  (*
  
  DATA READERS
  
  *)
  
  let conversionTemplate field =
    match field.FieldType with
    | Id           -> "getInt64"
  