Using State Monad to track names during translation from GHC Core

BillHallahan · Oct 6, 2023 · 80a2f77 · 80a2f77
1 parent a7e7159
commit 80a2f77
Show file tree

Hide file tree

Showing 3 changed files with 258 additions and 241 deletions.
diff --git a/src/G2/Initialization/KnownValues.hs b/src/G2/Initialization/KnownValues.hs
@@ -136,7 +136,7 @@ superClassExtractor tc tc_n sc_n =
  case lookupTCClass tc_n tc of
  Just c
  | Just (_, i) <- find extractsSC (superclasses c) -> idName i
- | otherwise -> error $ "superClassExtractor: Extractor not found " ++ show (superclasses c)
+ | otherwise -> error $ "superClassExtractor: Extractor not found\n" ++ show sc_n ++ "\n" ++ show (superclasses c)
  Nothing -> error $ "superClassExtractor: Class not found " ++ show tc_n
  where
  extractsSC (t, _) =