From b2cae2db744cfca2825bf1e7a1c1ed41ce105c3e Mon Sep 17 00:00:00 2001 From: Csaba Hruska Date: Mon, 21 Mar 2016 16:34:52 +0100 Subject: generate toJSON java code --- ddl/Generate.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'ddl/Generate.hs') 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 -- cgit v1.2.3