typo

Command/P2P.hs

@@ -166,7 +166,7 @@ performPairing remotename addrs = do
 		case Wormhole.toCode l of
 			Just code
 				| code /= ourcode -> do
-					putStrLn "Pairing in process..."
+					putStrLn "Exchanging pairing data..."
 					return code
 				| otherwise -> do
 					putStrLn "Oops -- You entered this repository's pairing code. We need the pairing code of the *other* repository."

Utility/Tor.hs

@@ -70,7 +70,7 @@ addHiddenService uid ident = do
 			-- service and generate the hostname file for it.
 			reloaded <- anyM (uncurry boolSystem)
 				[ ("systemctl", [Param "reload", Param "tor"])
-				, ("sefvice", [Param "tor", Param "reload"])
+				, ("service", [Param "tor", Param "reload"])
 				]
 			unless reloaded $
 				giveup "failed to reload tor, perhaps the tor service is not running"