diff options
author | Joey Hess <joey@kitenet.net> | 2012-12-13 00:24:19 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-12-13 00:24:19 -0400 |
commit | 94554782894ec6c26da3b46312d5d1d16d596458 (patch) | |
tree | 78746106bfb153945ccbfd2bbae536081c005e91 /Utility/DBus.hs | |
parent | 55bd61d8c42aaf36a3c57f8444c493f6b045f4cd (diff) |
finished where indentation changes
Diffstat (limited to 'Utility/DBus.hs')
-rw-r--r-- | Utility/DBus.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Utility/DBus.hs b/Utility/DBus.hs index d31c20d54..3523a3aa3 100644 --- a/Utility/DBus.hs +++ b/Utility/DBus.hs @@ -57,10 +57,10 @@ runClient getaddr clientaction = do e <- takeMVar mv disconnect client throw e - where - threadrunner storeerr io = loop - where - loop = catchClientError (io >> loop) storeerr + where + threadrunner storeerr io = loop + where + loop = catchClientError (io >> loop) storeerr {- Connects to the bus, and runs the client action. - @@ -73,10 +73,10 @@ persistentClient getaddr v onretry clientaction = {- runClient can fail with not just ClientError, but also other - things, if dbus is not running. Let async exceptions through. -} runClient getaddr clientaction `catchNonAsync` retry - where - retry e = do - v' <- onretry e v - persistentClient getaddr v' onretry clientaction + where + retry e = do + v' <- onretry e v + persistentClient getaddr v' onretry clientaction {- Catches only ClientError -} catchClientError :: IO () -> (ClientError -> IO ()) -> IO () |