Switch one of the names in the JSON representation of type info.
This commit is contained in:
parent
42b4d5531f
commit
6761fbb695
1 changed files with 1 additions and 1 deletions
|
@ -23,7 +23,7 @@ toModules ms =
|
|||
"{ \"modules\" : [\n " ++ intercalate ",\n " (map toModule ms) ++ "\n ]\n}"
|
||||
|
||||
toModule (name, values) =
|
||||
"{ \"module\" : " ++ show name ++ ",\n \"values\" : [\n " ++ vs ++ "\n ]\n }"
|
||||
"{ \"name\" : " ++ show name ++ ",\n \"values\" : [\n " ++ vs ++ "\n ]\n }"
|
||||
where vs = intercalate ",\n " (map toValue values)
|
||||
|
||||
toValue (name, tipe) =
|
||||
|
|
Loading…
Reference in a new issue