diff options
author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-03-21 16:34:52 +0100 |
---|---|---|
committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-03-21 16:34:52 +0100 |
commit | b2cae2db744cfca2825bf1e7a1c1ed41ce105c3e (patch) | |
tree | 200a771e223ab99dac30db9708147406e1f5dc0f /ddl/Generate.hs | |
parent | 19ee05bdc20b43ee8d88eaee49c8ee6a8c38e3fb (diff) |
generate toJSON java code
Diffstat (limited to 'ddl/Generate.hs')
-rw-r--r-- | ddl/Generate.hs | 3 |
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 | |||
44 | , "dateTime" .= dt | 44 | , "dateTime" .= dt |
45 | , "imports" .= imports | 45 | , "imports" .= imports |
46 | , "usedTypes" .= collectTypes aliasMap mod | 46 | , "usedTypes" .= collectTypes aliasMap mod |
47 | , "usedCSTypes" .= (Set.fromList $ Map.elems $ Map.fromList [ (csType name aliasMap t,t) | t <- Set.toList $ collectTypes aliasMap mod]) | 47 | , "usedCSTypes" .= (Set.fromList $ Map.elems $ Map.fromList [ (csType name aliasMap t,t) | t <- Set.toList $ collectTypes aliasMap mod]) |
48 | , "usedJavaTypes" .= (Set.fromList $ Map.elems $ Map.fromList [ (javaType aliasMap t,t) | t <- Set.toList $ collectTypes aliasMap mod]) | ||
48 | ] | 49 | ] |
49 | aliasMap = Map.fromList [(n,t) | TypeAlias n t <- def] | 50 | aliasMap = Map.fromList [(n,t) | TypeAlias n t <- def] |
50 | mylib :: HashMap Text Term | 51 | mylib :: HashMap Text Term |