From 291774779fc416d1bedc44ab857afdd248c5d0a9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 5 Jun 2020 16:45:12 -0400 Subject: [PATCH] use right handle --- Remote/Bup.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Remote/Bup.hs b/Remote/Bup.hs index 58e301d126..8ce7e65bfc 100644 --- a/Remote/Bup.hs +++ b/Remote/Bup.hs @@ -167,10 +167,10 @@ store r buprepo = byteStorer $ \k b p -> do feeder = \h -> meteredWrite p h b in withCreateProcess cmd' (go feeder cmd') where - go feeder p (Just hin) _ _ pid = + go feeder p _ (Just h) _ pid = forceSuccessProcess p pid `after` - feeder hin + feeder h go _ _ _ _ _ _ = error "internal" retrieve :: BupRepo -> Retriever