remove debug print

This commit is contained in:
Joey Hess 2020-06-16 14:43:06 -04:00
parent 9e0bafd70b
commit cd15f6fa48
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -75,7 +75,6 @@ setRemoteCredPair' mkval parseconfig encsetup c gc storage mcreds = case mcreds
| embedCreds pc -> do | embedCreds pc -> do
let key = credPairRemoteField storage let key = credPairRemoteField storage
localcache creds localcache creds
liftIO $ print ("set creds", key, creds)
storeconfig creds key =<< remoteCipher pc gc storeconfig creds key =<< remoteCipher pc gc
| otherwise -> do | otherwise -> do
localcache creds localcache creds