Skip to content

Commit

Permalink
Revert "File.hs: +symlink-based static file compiler; for multi-gigab…
Browse files Browse the repository at this point in the history
…yte sites, this can be a major speedup (see #786) (#810)"

This reverts commit 8415767.
  • Loading branch information
jaspervdj committed Mar 14, 2021
1 parent 04aa109 commit 470ebef
Showing 1 changed file with 0 additions and 16 deletions.
16 changes: 0 additions & 16 deletions lib/Hakyll/Core/File.hs
Original file line number Diff line number Diff line change
Expand Up @@ -8,8 +8,6 @@ module Hakyll.Core.File
, copyFileCompiler
, TmpFile (..)
, newTmpFile
, SymlinkFile (..)
, symlinkFileCompiler
) where


Expand All @@ -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)
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit 470ebef

Please sign in to comment.