flip catchDefaultIO
This commit is contained in:
parent
ba744c84a4
commit
e8188ea611
18 changed files with 29 additions and 26 deletions
|
@ -108,7 +108,7 @@ startDaemonStatus :: Annex DaemonStatusHandle
|
|||
startDaemonStatus = do
|
||||
file <- fromRepo gitAnnexDaemonStatusFile
|
||||
status <- liftIO $
|
||||
catchDefaultIO (readDaemonStatusFile file) =<< newDaemonStatus
|
||||
flip catchDefaultIO (readDaemonStatusFile file) =<< newDaemonStatus
|
||||
transfers <- M.fromList <$> getTransfers
|
||||
remotes <- calcKnownRemotes
|
||||
liftIO $ atomically $ newTMVar status
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue