tpar-0.1.0.0: TPar/Utils.hs

module TPar.Utils where

import Control.Distributed.Process

debugEnabled :: Bool
debugEnabled = False

tparDebug :: String -> Process ()
tparDebug _ | not debugEnabled = return ()
tparDebug s = say s'
  where
     s' = "tpar: "++s