Switch one of the names in the JSON representation of type info.

This commit is contained in:
evancz 2013-03-14 01:47:29 -07:00
parent 42b4d5531f
commit 6761fbb695

View file

@ -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) =