Export a grammar in source format to JSON

This commit is contained in:
Krasimir Angelov
2025-04-14 11:16:27 +02:00
parent 3432e6f571
commit cc4d07f168
3 changed files with 5 additions and 0 deletions
+2
View File
@@ -72,6 +72,8 @@ compileSourceFiles opts fs =
when (FmtCanonicalJson `elem` ofmts) $
do (gr_canon,_) <- runCheck (grammar2canonical opts absname gr)
writeExport (render absname ++ ".json", encode (grammar2json gr_canon))
when (FmtSourceJson `elem` ofmts) $
do writeExport (render absname ++ ".json", encode (grammar2json gr))
where
ofmts = flag optOutputFormats opts