# HG changeset patch
# User wenzelm
# Date 1545408153 -3600
# Node ID c434ca819aea083b840f189191ef88b8da404999
# Parent  5256e7f26640e9cb631b74bf86938950e759d2e0
more Haskell operations;

diff -r 5256e7f26640 -r c434ca819aea src/Tools/Haskell/Haskell.thy
--- a/src/Tools/Haskell/Haskell.thy	Fri Dec 21 16:22:11 2018 +0100
+++ b/src/Tools/Haskell/Haskell.thy	Fri Dec 21 17:02:33 2018 +0100
@@ -1691,7 +1691,7 @@
   ThreadId, Result,
   find_id,
   properties, change_properties,
-  is_stopped, stop,
+  is_stopped, expose_stopped, stop,
   my_uuid, stop_uuid,
   Fork, fork_finally, fork)
 where
@@ -1701,7 +1701,7 @@
 import System.IO.Unsafe
 
 import qualified Data.List as List
-import Control.Monad (forM_)
+import Control.Monad (when, forM_)
 import Data.Map.Strict (Map)
 import qualified Data.Map.Strict as Map
 import Control.Exception.Base (SomeException)
@@ -1777,6 +1777,11 @@
 is_stopped :: IO Bool
 is_stopped = stopped <$> my_info
 
+expose_stopped :: IO ()
+expose_stopped = do
+  stopped <- is_stopped
+  when stopped $ throw ThreadKilled
+
 stop :: ThreadId -> IO ()
 stop id = map_info id (\info -> info {stopped = True})