diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-04-03 14:52:54 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-03 14:52:54 -0400 |
| commit | 6514c7a6220663488f115389fa1517b70436dc31 (patch) | |
| tree | 4a7ff9432d493dd0646e77961e2bc48d9087953d | |
| parent | ff388d90cc59fb914702f232ed69c15b4e4c75ea (diff) | |
add missing "do"
Unsure how it got committed in an uncompilable state before..
| -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 = |