RlpcError

2023-12-28 15:55:24 -07:00
parent c2960e4acc
commit 526bf0734e
7 changed files with 58 additions and 4 deletions
--- a/src/Core/TH.hs
+++ b/src/Core/TH.hs
@@ -63,5 +63,5 @@ qCoreProg s = case parseProg (T.pack s) of
    Left e       -> error (show e)
    Right (m,ts) -> lift m
    where
-        parseProg = evalRLPC def . (lexCore >=> parseCoreProg)
+        parseProg = evalRLPC def . (lexCoreR >=> parseCoreProgR)