unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-22 07:48:10 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #2047 from unisonweb/topic/show-cpus-on-headless

Browse Source 
print the number of cpus configured on headless startup
This commit is contained in:
Arya Irani 2021-06-01 14:21:51 -04:00 committed by GitHub
commit 7e687f65fb
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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