From 90d53ed9167c1263909d4488d940d585339d353c Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Wed, 3 Jul 2019 16:31:29 -0400 Subject: fix errant whitespace --- lib/KeyRing.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib') diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs index cece862..d85d2eb 100644 --- a/lib/KeyRing.hs +++ b/lib/KeyRing.hs @@ -606,7 +606,7 @@ writeHostsFiles krd ctx (hostdbs0,hostdbs,u1,gpgnames,outgoing_names) = do -- 4. for each host db H, union H with U and write it out as H' -- only if there is a non-empty diff - rss <- forM (zip hns $ zip hostdbs0 hostdbs) $ \(fname,(h0,h1)) -> do + rss <- forM (zip hns $ zip hostdbs0 hostdbs) $ \(fname,(h0,h1)) -> do let h = h1 `Hosts.plus` u d = Hosts.diff h0 h rs = map ((fname,) . HostsDiff) d @@ -1129,10 +1129,10 @@ try' v body = runKeyRing :: KeyRingOperation -> IO (KikiResult KeyRingRuntime) runKeyRing operation = do -- get homedir and keyring files + fingerprint for working key - homedir <- getHomeDir (opHome operation) + homedir <- getHomeDir (opHome operation) try' homedir $ \(_homedir, secring, pubring, grip0) -> do let ctx = InputFileContext secring pubring - tolocks = filesToLock operation ctx + tolocks = filesToLock operation ctx secring <- return Nothing pubring <- return Nothing (locks :: [(Maybe DotLock, FilePath)]) <- -- cgit v1.2.3