diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2021-03-14 13:47:17 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2021-03-14 13:47:17 +0100 |
commit | 470ebef4d5234d4f4a39ac069aff1561a627fde6 (patch) | |
tree | 4facbb5baa6ae9e3bd8df1db05b61c1b538afb22 /lib | |
parent | 04aa10917e7a004277e955048040dbb7c451e6d8 (diff) | |
download | hakyll-470ebef4d5234d4f4a39ac069aff1561a627fde6.tar.gz |
Revert "File.hs: +symlink-based static file compiler; for multi-gigabyte sites, this can be a major speedup (see #786) (#810)"
This reverts commit 84157674d955778c806efdafda311b2732242b38.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Hakyll/Core/File.hs | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/lib/Hakyll/Core/File.hs b/lib/Hakyll/Core/File.hs index 6a5775e..49af659 100644 --- a/lib/Hakyll/Core/File.hs +++ b/lib/Hakyll/Core/File.hs @@ -8,8 +8,6 @@ module Hakyll.Core.File , copyFileCompiler , TmpFile (..) , newTmpFile - , SymlinkFile (..) - , symlinkFileCompiler ) where @@ -22,7 +20,6 @@ import System.Directory (copyFileWithMetadata) import System.Directory (copyFile) #endif import System.Directory (doesFileExist, - createFileLink, renameFile) import System.FilePath ((</>)) import System.Random (randomIO) @@ -59,19 +56,6 @@ copyFileCompiler = do provider <- compilerProvider <$> compilerAsk makeItem $ CopyFile $ resourceFilePath provider identifier --------------------------------------------------------------------------------- --- | This will not copy a file but create a symlink, which can save space & time for static sites with many large static files which would normally be handled by copyFileCompiler. (Note: the user will need to make sure their sync method handles symbolic links correctly!) -newtype SymlinkFile = SymlinkFile FilePath - deriving (Binary, Eq, Ord, Show, Typeable) --------------------------------------------------------------------------------- -instance Writable SymlinkFile where - write dst (Item _ (SymlinkFile src)) = createFileLink src dst --------------------------------------------------------------------------------- -symlinkFileCompiler :: Compiler (Item SymlinkFile) -symlinkFileCompiler = do - identifier <- getUnderlying - provider <- compilerProvider <$> compilerAsk - makeItem $ SymlinkFile $ resourceFilePath provider identifier -------------------------------------------------------------------------------- newtype TmpFile = TmpFile FilePath |