Use Data.Text instead of String. Rename Abstr to Abstract, Concr to Concrete.

This commit is contained in:
John J. Camilleri
2021-02-16 16:04:40 +01:00
parent d394cacddf
commit 398b294734
4 changed files with 63 additions and 49 deletions

View File

@@ -53,7 +53,7 @@ doGrammar' gname cncs = do
Just tree = readExpr ast
-- Do some linearization
langs =
[ printf "%s: %s" (showLanguage lang) (linearizeConcr concr tree)
[ printf "%s: %s" (showLanguage lang) (linearizeConcrete concr tree)
| (lang,concr) <- Map.toList (concretes lpgf)
]
mapM_ putStrLn langs