From d4b36ad45e519f79ae2c1df4c5bf6e77ae6e690e Mon Sep 17 00:00:00 2001
From: ygrek <ygrek@autistici.org>
Date: Sat, 13 Jun 2009 18:39:31 +0300
Subject: [PATCH] style

---
 gen_csharp.ml | 2 +-
 gen_java.ml   | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/gen_csharp.ml b/gen_csharp.ml
index ec47dc6..9143a01 100644
--- a/gen_csharp.ml
+++ b/gen_csharp.ml
@@ -16,7 +16,7 @@ let comment = G.comment
 let empty_line = G.empty_line
 
 let (start_class,end_class) = J.start_class,J.end_class
-let (start_ns,end_ns) = J.start_ "" "namespace"
+let (start_ns,end_ns) = J.start_ "namespace"
 
 let as_db_type = function
   | Type.Int -> "Int32"
diff --git a/gen_java.ml b/gen_java.ml
index 8b9d77d..c23c880 100644
--- a/gen_java.ml
+++ b/gen_java.ml
@@ -14,9 +14,9 @@ module G = Gen_cxx
 let comment = G.comment
 let empty_line = G.empty_line
 
-let start_ access cls =
+let start_ cls =
    let f1 name =
-   output "%s %s %s" access cls name;
+   output "%s %s" cls name;
    G.open_curly ()
    in
    let f2 name =
@@ -25,8 +25,8 @@ let start_ access cls =
    in
    f1,f2
 
-let (start_class,end_class) = start_ "public" "class"
-let (start_intf,end_intf) = start_ "public" "interface"
+let (start_class,end_class) = start_ "public class"
+let (start_intf,end_intf) = start_ "public interface"
 
 let as_java_type = function
   | Type.Int -> "int"
-- 
2.11.4.GIT