generate toJSON java code

1 files changed, 2 insertions, 1 deletions

diff --git a/ddl/Generate.hs b/ddl/Generate.hs
index 37437de..36d913e 100644
--- a/ddl/Generate.hs
+++ b/ddl/Generate.hs
@@ -44,7 +44,8 @@ main = do
               , "dateTime"    .= dt
               , "imports"     .= imports
               , "usedTypes"   .= collectTypes aliasMap mod
-              , "usedCSTypes" .= (Set.fromList $ Map.elems $ Map.fromList [ (csType name aliasMap t,t) | t <- Set.toList $ collectTypes aliasMap mod])
+              , "usedCSTypes"   .= (Set.fromList $ Map.elems $ Map.fromList [ (csType name aliasMap t,t) | t <- Set.toList $ collectTypes aliasMap mod])
+              , "usedJavaTypes" .= (Set.fromList $ Map.elems $ Map.fromList [ (javaType aliasMap t,t) | t <- Set.toList $ collectTypes aliasMap mod])
               ]
             aliasMap = Map.fromList [(n,t) | TypeAlias n t <- def]
             mylib :: HashMap Text Term