Merge pull request #1041 from actonlang/1040-fix-cps-glitch

Added missing type conversion. (Shortest diff ever?)
actonlang · Nov 4, 2022 · f62e8c3 · f62e8c3
2 parents 8b40a3e + f35e042
commit f62e8c3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/compiler/Acton/CPS.hs b/compiler/Acton/CPS.hs
@@ -299,7 +299,7 @@ instance CPS Decl where
       | contFX fx                       = do b' <- cpsSuite env1 b
                                              return $ Def l n q' (addContPar env dec p' fx t') KwdNIL (Just tR) b' dec fx
       | otherwise                       = return $ Def l n q' p' KwdNIL (Just t') (conv b) dec fx
-      where env1                        = define (envOf p) $ defineTVars q $ Meth contKW t +: setDefCtxt env
+      where env1                        = define (envOf p) $ defineTVars q $ Meth contKW t' +: setDefCtxt env
             q'                          = conv q
             p'                          = conv p
             t'                          = conv t