Update unison-cli/src/Unison/CommandLine/OutputMessages.hs

Co-authored-by: Arya Irani <538571+aryairani@users.noreply.github.com>
This commit is contained in:
Chris Penner 2022-06-16 14:12:04 -06:00 committed by GitHub
parent 9b14cd4915
commit 19f1b365b6
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -1640,6 +1640,7 @@ notifyUser dir o = case o of
UnreachableCodeserver codeServerURL ->
P.lines $
[ P.wrap $ "Unable to reach the code server hosted at:" <> P.string (Servant.showBaseUrl codeServerURL),
, ""
P.wrap "Please check your network, ensure you've provided the correct location, or try again later."
]
InvalidResponse resp -> P.fatalCallout $ P.hang "Invalid response received from codeserver:" (P.shown resp)