done with partial evaluation for records and variants

2021-09-24 15:00:34 +02:00
parent d17ca06faf
commit 3dc2af61a6
10 changed files with 116 additions and 104 deletions
--- a/src/compiler/GF/Compile/GrammarToPGF.hs
+++ b/src/compiler/GF/Compile/GrammarToPGF.hs
@@ -44,7 +44,6 @@ grammar2PGF opts gr am probs = do
               cncs     = map (mkConcr opts abs) cnc_infos
           in newPGF gflags an abs cncs)-}
  where
-    cenv = resourceValues opts gr
    aflags = err (const noOptions) mflags (lookupModule gr am)

    mkAbstr :: ModuleName -> Map.Map PGF2.Fun Double -> IO PGF