From 470ebef4d5234d4f4a39ac069aff1561a627fde6 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Sun, 14 Mar 2021 13:47:17 +0100
Subject: [PATCH] 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.
---
 lib/Hakyll/Core/File.hs | 16 ----------------
 1 file changed, 16 deletions(-)

diff --git a/lib/Hakyll/Core/File.hs b/lib/Hakyll/Core/File.hs
index 6a5775e8d..49af6590a 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