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

Saving current state before running anything and then falling back to it if needed

Browse Source
This commit is contained in:
unorsk 2023-01-12 17:35:43 +01:00
parent fa378f7601
commit 54758e865a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
unison-cli/src/Unison/CommandLine/Main.hs
View File

@ -15,7 +15,7 @@ import qualified Data.Text as Text
import qualified Data.Text.Lazy.IO as Text.Lazy
import qualified Ki
import qualified System.Console.Haskeline as Line
import System.IO (hPutStrLn, stderr)
import System.IO (hPutStrLn, stderr, hGetEcho, hSetEcho, stdin)
import System.IO.Error (isDoesNotExistError)
import Text.Pretty.Simple (pShow)
import qualified U.Codebase.Sqlite.Operations as Operations
@ -143,8 +143,12 @@ main dir welcome initialPath config initialInputs runtime sbRuntime codebase ser
credentialManager <- newCredentialManager
let tokenProvider = AuthN.newTokenProvider credentialManager
authHTTPClient <- AuthN.newAuthenticatedHTTPClient tokenProvider ucmVersion
initialEcho <- hGetEcho stdin
let restoreEcho = (\currentEcho -> when (currentEcho /= initialEcho) $ hSetEcho stdin initialEcho)
let getInput :: Cli.LoopState -> IO Input
getInput loopState = do
currentEcho <- hGetEcho stdin
liftIO $ restoreEcho currentEcho
getUserInput
codebase
authHTTPClient