diff options
Diffstat (limited to 'Command/Multicast.hs')
-rw-r--r-- | Command/Multicast.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Multicast.hs b/Command/Multicast.hs index cd74c3ebc..3fb2f6e79 100644 --- a/Command/Multicast.hs +++ b/Command/Multicast.hs @@ -178,7 +178,7 @@ receive ups = do (callback, environ, statush) <- liftIO multicastCallbackEnv tmpobjdir <- fromRepo gitAnnexTmpObjectDir createAnnexDirectory tmpobjdir - withTmpDirIn tmpobjdir "multicast" $ \tmpdir -> withAuthList $ \authlist -> + withTmpDirIn tmpobjdir "multicast" $ \tmpdir -> withAuthList $ \authlist -> do abstmpdir <- liftIO $ absPath tmpdir abscallback <- liftIO $ searchPath callback let ps = |