From 27846f4db09c99fecdef972fe4a5fc41fd445500 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sun, 3 May 2020 23:00:47 -0400 Subject: Corrected tag ssh-host to ssh-server for ssh self-auth UID. --- lib/Kiki.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lib/Kiki.hs') diff --git a/lib/Kiki.hs b/lib/Kiki.hs index ddcaba0..02ac397 100644 --- a/lib/Kiki.hs +++ b/lib/Kiki.hs @@ -41,6 +41,7 @@ import qualified Data.ByteString.Char8 as S8 import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy.Char8 as Char8 import qualified Data.Map.Strict as Map +import GHC.Stack import Network.Socket import qualified SSHKey as SSH @@ -539,7 +540,7 @@ refreshCache rt rootdir = do rt'' <- rethrowKikiErrors rt' writePublicKeyFiles rt'' fw myId -rethrowKikiErrors :: KikiCondition a -> IO a +rethrowKikiErrors :: HasCallStack => KikiCondition a -> IO a rethrowKikiErrors BadPassphrase = error "Operation requires correct passphrase. (Hint: Use --passphrase-fd=0 to input it on stdin.)" rethrowKikiErrors rt = unconditionally $ return rt -- cgit v1.2.3