mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove pointless bracket

Browse source
This commit is contained in:
Joey Hess 2012-08-23 15:48:14 -04:00
parent 715a9a2f8e
commit 6420fa6c08
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/DaemonStatus.hs
View file

@ -246,13 +246,13 @@ updateAlertMap dstatus a = notifyAlert dstatus `after` modifyDaemonStatus_ dstat
alertWhile :: DaemonStatusHandle -> Alert -> IO Bool -> IO Bool alertWhile :: DaemonStatusHandle -> Alert -> IO Bool -> IO Bool
alertWhile dstatus alert a = alertWhile' dstatus alert $ do alertWhile dstatus alert a = alertWhile' dstatus alert $ do
r <- a r <- a
return $ (r, r) return (r, r)
{- Like alertWhile, but allows the activity to return a value too. -} {- Like alertWhile, but allows the activity to return a value too. -}
alertWhile' :: DaemonStatusHandle -> Alert -> IO (Bool, a) -> IO a alertWhile' :: DaemonStatusHandle -> Alert -> IO (Bool, a) -> IO a
alertWhile' dstatus alert a = do alertWhile' dstatus alert a = do
let alert' = alert { alertClass = Activity } let alert' = alert { alertClass = Activity }
i <- addAlert dstatus alert' i <- addAlert dstatus alert'
(ok, r) <- bracket_ noop noop a (ok, r) <- a
updateAlertMap dstatus $ mergeAlert i $ makeAlertFiller ok alert' updateAlertMap dstatus $ mergeAlert i $ makeAlertFiller ok alert'
return r return r