diff options
Diffstat (limited to 'Remote/Directory.hs')
| -rwxr-xr-x[-rw-r--r--] | Remote/Directory.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Remote/Directory.hs b/Remote/Directory.hs index d3885e89e..c960bb1b4 100644..100755 --- a/Remote/Directory.hs +++ b/Remote/Directory.hs @@ -5,6 +5,8 @@ - Licensed under the GNU GPL version 3 or higher. -} +{-# LANGUAGE CPP #-} + module Remote.Directory (remote) where import qualified Data.ByteString.Lazy as L @@ -217,10 +219,14 @@ retrieveEncrypted d chunksize (cipher, enck) k f p = metered (Just p) k $ \meter retrieveCheap :: FilePath -> ChunkSize -> Key -> FilePath -> Annex Bool retrieveCheap _ (Just _) _ _ = return False -- no cheap retrieval for chunks +#ifndef __WINDOWS__ retrieveCheap d _ k f = liftIO $ withStoredFiles Nothing d k go where go [file] = catchBoolIO $ createSymbolicLink file f >> return True go _files = return False +#else +retrieveCheap _ _ _ _ = return False +#endif remove :: FilePath -> Key -> Annex Bool remove d k = liftIO $ do |