-------------------------------------------------------------------------------
-- Concurrent Haskell Debugger 
--   Main Module
--     by Thomas Boettcher <thomas.boettcher@gmx.de>
-------------------------------------------------------------------------------


module ConcurrentDebugLess
  ( 
    module Control.Concurrent,
-- Label
    labelProgram,
    labelMVar,
    labelSampleVar,
    labelChan,
    labelThread,
    forkIOLabel
  )
  where


-------------------------------------------------------------------------------
-- IMPORTS
-------------------------------------------------------------------------------


import Control.Concurrent


-------------------------------------------------------------------------------
-- TYPES
-------------------------------------------------------------------------------


-------------------------------------------------------------------------------
-- FUNCTIONS
-------------------------------------------------------------------------------


labelProgram :: String -> IO ()
labelProgram name = return ()

labelMVar :: MVar a -> String -> IO ()
labelMVar mvar name = return ()

labelSampleVar :: SampleVar a -> String -> IO ()
labelSampleVar _ _ = return ()

labelChan :: Chan a -> String -> IO ()
labelChan chan name = return ()

labelThread :: String -> IO ()
labelThread name = return ()

forkIOLabel :: String -> IO () -> IO ThreadId
forkIOLabel name thread = forkIO thread