diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-05-02 18:07:27 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-05-02 18:07:27 -0400 |
commit | e8e389a4bce4f9783ec5a0b57f89843ac00342da (patch) | |
tree | d6e7d69f89c539b19f88f610fad433f5bc1027d1 /ControlWindow.hs | |
parent | 87e0e9cf517d2ca2f9dc1011d1924fb068db78e4 (diff) | |
download | debug-me-e8e389a4bce4f9783ec5a0b57f89843ac00342da.tar.gz |
capitalization
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 |