summaryrefslogtreecommitdiff
path: root/compiler/GHC/Runtime/Interpreter.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/Runtime/Interpreter.hs')
-rw-r--r--compiler/GHC/Runtime/Interpreter.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Runtime/Interpreter.hs b/compiler/GHC/Runtime/Interpreter.hs
index ed906279cc..a61578278f 100644
--- a/compiler/GHC/Runtime/Interpreter.hs
+++ b/compiler/GHC/Runtime/Interpreter.hs
@@ -200,7 +200,7 @@ interpCmd interp msg = case interpInstance interp of
InternalInterp -> run msg -- Just run it directly
#endif
ExternalInterp c i -> withIServ_ c i $ \iserv ->
- uninterruptibleMask_ $ -- Note [uninterruptibleMask_]
+ uninterruptibleMask_ $ -- Note [uninterruptibleMask_ and interpCmd]
iservCall iserv msg