remove debug print
This commit is contained in:
parent
9e0bafd70b
commit
cd15f6fa48
1 changed files with 0 additions and 1 deletions
1
Creds.hs
1
Creds.hs
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue