src/Tools/Haskell/Haskell.thy

 
 module Isabelle.Standard_Thread (
   ThreadId, Result,
   find_id,
   properties, change_properties,
-  stop, is_stopped,
+  is_stopped, stop,
+  my_uuid, stop_uuid,
   Fork, fork_finally, fork)
 where
 
 import Data.Maybe
 import Data.IORef
 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)
 import Control.Exception as Exception
 import Control.Concurrent (ThreadId)

 is_stopped :: IO Bool
 is_stopped = stopped <$> my_info
 
 stop :: ThreadId -> IO ()
 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))