pairing works!!

Finally.

Last bug fixes here: Send PairResp with same UUID in the PairReq.
Fix off-by-one in code that filters out our own pairing messages.

Also reworked the pairing alerts, which are still slightly buggy.

Assistant/Ssh.hs

@@ -32,6 +32,9 @@ data SshKeyPair = SshKeyPair
 	, sshPrivKey :: String
 	}
 
+instance Show SshKeyPair where
+	show = sshPubKey
+
 type SshPubKey = String
 
 {- ssh -ofoo=bar command-line option -}