unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-11-11 17:16:30 +03:00
Code Issues Projects Releases Wiki Activity

print the number of cpus configured on headless startup

Browse Source
This commit is contained in:
Arya Irani 2021-06-01 11:26:10 -06:00
parent c112a2415f
commit c92bf5528e
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
parser-typechecker/unison/Main.hs
View File

@ -20,6 +20,7 @@ import Control.Exception (AsyncException (UserInterrupt), throwTo)
import Data.ByteString.Char8 (unpack)
import Data.Configurator.Types (Config)
import qualified Data.Text as Text
import qualified GHC.Conc
import qualified Network.URI.Encode as URI
import System.Directory (getCurrentDirectory, removeDirectoryRecursive)
import System.Environment (getArgs, getProgName)
@ -40,7 +41,7 @@ import qualified Unison.Codebase.FileCodebase as FC
import qualified Unison.Codebase.Path as Path
import qualified Unison.Codebase.SqliteCodebase as SC
import qualified Unison.Codebase.TranscriptParser as TR
import Unison.CommandLine (watchConfig)
import Unison.CommandLine (plural', watchConfig)
import qualified Unison.CommandLine.Main as CommandLine
import Unison.Parser (Ann)
import Unison.Prelude
@ -207,7 +208,11 @@ main = do
PT.putPrettyLn $ P.lines
["The Unison Codebase UI is running at", P.string $ url <> "/ui"]
if headless then do
PT.putPrettyLn $ P.string "Running the codebase manager in headless mode."
PT.putPrettyLn $ P.string "Running the codebase manager headless with "
<> P.shown GHC.Conc.numCapabilities
<> " "
<> plural' GHC.Conc.numCapabilities "cpu" "cpus"
<> "."
mvar <- newEmptyMVar
takeMVar mvar
else do