diff options
-rw-r--r-- | compiler/utils/Panic.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs index 38ee6fc19d..e7bf11c117 100644 --- a/compiler/utils/Panic.lhs +++ b/compiler/utils/Panic.lhs @@ -310,6 +310,6 @@ popInterruptTargetThread :: IO () popInterruptTargetThread = modifyMVar_ interruptTargetThread $ \tids -> return $! case tids of [] -> [] - (t:ts) -> ts + (_:ts) -> ts \end{code} |