diff options
Diffstat (limited to 'ControlWindow.hs')
| -rw-r--r-- | ControlWindow.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ControlWindow.hs b/ControlWindow.hs index a91adc0..c921fbb 100644 --- a/ControlWindow.hs +++ b/ControlWindow.hs @@ -135,10 +135,10 @@ displayChatMessage _ = return () askToAllow :: TMChan ControlOutput -> PromptChan -> ResponseChan -> PerhapsSigned PublicKey -> IO () askToAllow ochan _ _ (UnSigned pk) = atomically $ writeTMChan ochan $ ControlOutputAction $ SessionKeyRejected pk -askToAllow ochan promptchan responsechan k@(GpgSigned pk _) = do +askToAllow ochan promptchan responsechan k@(GpgSigned pk _ _) = do putStrLn "Someone wants to connect to this debug-me session." putStrLn "Checking their GnuPG signature ..." - v <- gpgVerify [] k + v <- gpgVerify k case v of Nothing -> do putStrLn "Unable to download their GnuPG key, or signature verification failed." |