X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=GHC%2FConc.lhs;h=1b5ff7e689b4c035d69a0af00a3bc5aa785f0620;hb=c131671f4b4b2583e7e4a6145360270fe6146e57;hp=665f82f9bbcc5e9905d434768e7e02c71c95d932;hpb=1b83f2438da1471dd27eb6469d97be525af66c46;p=ghc-base.git

diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs
index 665f82f..1b5ff7e 100644
--- a/GHC/Conc.lhs
+++ b/GHC/Conc.lhs
@@ -34,6 +34,7 @@ module GHC.Conc
         , forkOnIO      -- :: Int -> IO a -> IO ThreadId
         , forkOnIOUnmasked
         , numCapabilities -- :: Int
+        , getNumCapabilities -- :: IO Int
         , numSparks       -- :: IO Int
         , childHandler  -- :: Exception -> IO ()
         , myThreadId    -- :: IO ThreadId