-- This is a hack which will go away as soon as possible! module Data.Array.Parallel.Unlifted.Distributed.TheGang ( theGang ) where import Data.Array.Parallel.Unlifted.Distributed.Gang import System.IO.Unsafe (unsafePerformIO) import GHC.Conc (numCapabilities) theGang :: Gang {-# NOINLINE theGang #-} theGang = unsafePerformIO (forkGang numCapabilities)