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

add missing "do"

Browse source 
Unsure how it got committed in an uncompilable state before..
This commit is contained in:
Joey Hess 2017-04-03 14:52:54 -04:00
parent 74a06b535c
commit 256eb4807e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Multicast.hs
View file

@ -178,7 +178,7 @@ receive ups = do
(callback, environ, statush) <- liftIO multicastCallbackEnv (callback, environ, statush) <- liftIO multicastCallbackEnv
tmpobjdir <- fromRepo gitAnnexTmpObjectDir tmpobjdir <- fromRepo gitAnnexTmpObjectDir
createAnnexDirectory tmpobjdir createAnnexDirectory tmpobjdir
withTmpDirIn tmpobjdir "multicast" $ \tmpdir -> withAuthList $ \authlist -> withTmpDirIn tmpobjdir "multicast" $ \tmpdir -> withAuthList $ \authlist -> do
abstmpdir <- liftIO $ absPath tmpdir abstmpdir <- liftIO $ absPath tmpdir
abscallback <- liftIO $ searchPath callback abscallback <- liftIO $ searchPath callback
let ps = let ps =