From 76c76e44528c06bba50fe03c79e33e6fb7176e74 Mon Sep 17 00:00:00 2001 From: ygrek Date: Sun, 3 May 2009 22:51:27 +0300 Subject: [PATCH] remove old code --- sql.ml | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/sql.ml b/sql.ml index 04421f7..fdfecd6 100644 --- a/sql.ml +++ b/sql.ml @@ -21,21 +21,3 @@ struct deriving (Show) end -module Col = -struct - type t = {name:string; cpp_name:string; sqltype:Type.t; constraints:Constraint.t list} - deriving (Show) - let make name sqltype constraints = - {name=name; cpp_name=name; sqltype=sqltype; constraints=constraints} - let type_to_string c = Type.to_string c.sqltype - let type_to_cpp_string c = Type.to_cpp_string c.sqltype - let is_primary_key c = List.mem Constraint.PrimaryKey c.constraints -end - -module Table = -struct - type t = {name:string; cpp_name:string; cols:Col.t list} - deriving (Show) - - let make name cols = {name=name;cpp_name=name;cols=cols} -end -- 2.11.4.GIT