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

diff -r c34dfa431b89 -r 5256e7f26640 src/Tools/Haskell/Haskell.thy
--- a/src/Tools/Haskell/Haskell.thy	Fri Dec 21 16:08:39 2018 +0100
+++ b/src/Tools/Haskell/Haskell.thy	Fri Dec 21 16:22:11 2018 +0100
@@ -1691,7 +1691,8 @@
   ThreadId, Result,
   find_id,
   properties, change_properties,
-  stop, is_stopped,
+  is_stopped, stop,
+  my_uuid, stop_uuid,
   Fork, fork_finally, fork)
 where
 
@@ -1700,6 +1701,7 @@
 import System.IO.Unsafe
 
 import qualified Data.List as List
+import Control.Monad (forM_)
 import Data.Map.Strict (Map)
 import qualified Data.Map.Strict as Map
 import Control.Exception.Base (SomeException)
@@ -1779,6 +1781,17 @@
 stop id = map_info id (\info -> info {stopped = True})
 
 
+{- UUID -}
+
+my_uuid :: IO UUID.T
+my_uuid = uuid <$> my_info
+
+stop_uuid :: UUID.T -> IO ()
+stop_uuid uuid = do
+  id <- find_id uuid
+  forM_ id stop
+
+
 {- fork -}
 
 type Fork a = (ThreadId, UUID.T, IO (Result a))