diff options
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 |