summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJasper Van der Jeugt <m@jaspervdj.be>2021-03-14 13:47:17 +0100
committerJasper Van der Jeugt <m@jaspervdj.be>2021-03-14 13:47:17 +0100
commit470ebef4d5234d4f4a39ac069aff1561a627fde6 (patch)
tree4facbb5baa6ae9e3bd8df1db05b61c1b538afb22
parent04aa10917e7a004277e955048040dbb7c451e6d8 (diff)
downloadhakyll-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.
-rw-r--r--lib/Hakyll/Core/File.hs16
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