Update message on start

This commit is contained in:
runarorama 2021-02-22 14:50:21 -05:00
parent 488630677c
commit 6ba27f4ec8
2 changed files with 4 additions and 4 deletions

View File

@ -242,7 +242,7 @@ library
regex-base,
regex-tdfa,
safe,
servant >= 18,
servant,
servant-docs,
servant-openapi3,
servant-server,

View File

@ -162,9 +162,9 @@ main = do
[] -> do
theCodebase <- FileCodebase.getCodebaseOrExit branchCache mcodepath
Server.start theCodebase $ \token port -> do
PT.putPrettyLn .
P.string $ "I've started a codebase API server at http://127.0.0.1:"
<> show port <> "?" <> URI.encode (unpack token)
PT.putPrettyLn . P.string $ "I've started a codebase API server at "
PT.putPrettyLn . P.string $ "http://127.0.0.1:"
<> show port <> "?" <> URI.encode (unpack token)
launch currentDir mNewRun config theCodebase branchCache []
[version] | isFlag "version" version ->
putStrLn $ progName ++ " version: " ++ Version.gitDescribe