diff options
Diffstat (limited to 'ControlWindow.hs')
| -rw-r--r-- | ControlWindow.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ControlWindow.hs b/ControlWindow.hs index e561017..5163a95 100644 --- a/ControlWindow.hs +++ b/ControlWindow.hs @@ -137,14 +137,14 @@ askToAllow ochan _ _ (UnSigned pk) = atomically $ writeTMChan ochan $ ControlOutputAction $ SessionKeyRejected pk askToAllow ochan promptchan responsechan k@(GpgSigned pk _) = do putStrLn "Someone wants to connect to this debug-me session." - putStrLn "Checking their Gnupg signature ..." + putStrLn "Checking their GnuPG signature ..." v <- gpgVerify [] k case v of Nothing -> do - putStrLn "Unable to download their Gnupg key, or signature verification failed." + putStrLn "Unable to download their GnuPG key, or signature verification failed." reject Just gpgkeyid -> flip catch woterror $ do - putStrLn "Checking the Gnupg web of trust ..." + putStrLn "Checking the GnuPG web of trust ..." ss <- isInStrongSet gpgkeyid ws <- downloadWotStats gpgkeyid putStrLn $ describeWot ws ss |