remove change that was accidentially committed

diff --git a/Remote/Directory.hs b/Remote/Directory.hs
index 868dc4361149cd8e20e9775a631de75ccf16b6fc..cebd5e61fe979fe658615d11c7c4f3e02b556a0f 100644 (file)
--- 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)