From 9e8bbb3aacbe81a631ef989a36d64c84167aa3de Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 15 Oct 2024 13:30:52 -0400 Subject: [PATCH] remove change that was accidentially committed --- Remote/Directory.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Remote/Directory.hs b/Remote/Directory.hs index 868dc43611..cebd5e61fe 100644 --- a/Remote/Directory.hs +++ b/Remote/Directory.hs @@ -252,9 +252,9 @@ finalizeStoreGeneric d tmp dest = do retrieveKeyFileM :: RawFilePath -> ChunkConfig -> CopyCoWTried -> Retriever retrieveKeyFileM d (LegacyChunks _) _ = Legacy.retrieve locations' d ---retrieveKeyFileM d NoChunks cow = fileRetriever' $ \dest k p iv -> do --- src <- liftIO $ fromRawFilePath <$> getLocation d k --- void $ liftIO $ fileCopier cow src (fromRawFilePath dest) p iv +retrieveKeyFileM d NoChunks cow = fileRetriever' $ \dest k p iv -> do + src <- liftIO $ fromRawFilePath <$> getLocation d k + void $ liftIO $ fileCopier cow src (fromRawFilePath dest) p iv retrieveKeyFileM d _ _ = byteRetriever $ \k sink -> sink =<< liftIO (L.readFile . fromRawFilePath =<< getLocation d k)