fix errant whitespace

1 files changed, 3 insertions, 3 deletions

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)]) <-