diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2022-11-09 13:34:25 +0100 |
|---|---|---|
| committer | Sylvain Henry <sylvain@haskus.fr> | 2022-11-09 13:34:25 +0100 |
| commit | 4556033e37a93bb02c4c2c04433cf86d4be9ebe0 (patch) | |
| tree | cf885492edb3c79b989a5f4b62f5c4f40fc3cde3 | |
| parent | feef116b282ba351b9e08828dd8b9b46230e9c2b (diff) | |
| download | haskell-4556033e37a93bb02c4c2c04433cf86d4be9ebe0.tar.gz | |
Add some HasDebugCallStack
| -rw-r--r-- | compiler/GHC/StgToJS/Utils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/StgToJS/Utils.hs b/compiler/GHC/StgToJS/Utils.hs index e96319f186..8d16f39a64 100644 --- a/compiler/GHC/StgToJS/Utils.hs +++ b/compiler/GHC/StgToJS/Utils.hs @@ -21,7 +21,7 @@ import GHC.Utils.Misc import GHC.Utils.Panic import GHC.Utils.Outputable -assignToTypedExprs :: [TypedExpr] -> [JExpr] -> JStat +assignToTypedExprs :: HasDebugCallStack => [TypedExpr] -> [JExpr] -> JStat assignToTypedExprs tes es = assignAllEqual (concatMap typex_expr tes) es @@ -30,7 +30,7 @@ assignTypedExprs tes es = -- TODO: check primRep (typex_typ) here? assignToTypedExprs tes (concatMap typex_expr es) -assignToExprCtx :: ExprCtx -> [JExpr] -> JStat +assignToExprCtx :: HasDebugCallStack => ExprCtx -> [JExpr] -> JStat assignToExprCtx ctx es = assignToTypedExprs (ctxTarget ctx) es -- | Assign first expr only (if it exists), performing coercions between some |