From 9b63052148a140b8ad5fc04b996023d8b8e3796d Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Thu, 23 Dec 2010 14:31:30 +0100
Subject: Remove old code for now

---
 src/Text/Hakyll/Internal/Cache.hs | 53 ---------------------------------------
 1 file changed, 53 deletions(-)
 delete mode 100644 src/Text/Hakyll/Internal/Cache.hs

(limited to 'src/Text/Hakyll/Internal/Cache.hs')

diff --git a/src/Text/Hakyll/Internal/Cache.hs b/src/Text/Hakyll/Internal/Cache.hs
deleted file mode 100644
index b83d9af..0000000
--- a/src/Text/Hakyll/Internal/Cache.hs
+++ /dev/null
@@ -1,53 +0,0 @@
-module Text.Hakyll.Internal.Cache
-    ( storeInCache
-    , getFromCache
-    , isCacheMoreRecent
-    , cacheAction
-    ) where
-
-import Control.Monad ((<=<))
-import Control.Monad.Reader (liftIO)
-import Data.Binary
-import System.FilePath ((</>))
-
-import Text.Hakyll.File
-import Text.Hakyll.HakyllMonad (Hakyll)
-import Text.Hakyll.HakyllAction
-
--- | We can store all datatypes instantiating @Binary@ to the cache. The cache
---   directory is specified by the @HakyllConfiguration@, usually @_cache@.
-storeInCache :: (Binary a) => a -> FilePath -> Hakyll ()
-storeInCache value path = do
-    cachePath <- toCache path
-    makeDirectories cachePath
-    liftIO $ encodeFile cachePath value
-
--- | Get a value from the cache. The filepath given should not be located in the
---   cache. This function performs a timestamp check on the filepath and the
---   filepath in the cache, and only returns the cached value when it is still
---   up-to-date.
-getFromCache :: (Binary a) => FilePath -> Hakyll a
-getFromCache = liftIO . decodeFile <=< toCache
-
--- | Check if a file in the cache is more recent than a number of other files.
-isCacheMoreRecent :: FilePath -> [FilePath] -> Hakyll Bool
-isCacheMoreRecent file depends = toCache file >>= flip isFileMoreRecent depends
-
--- | Cache an entire arrow
---
-cacheAction :: Binary a
-            => String
-            -> HakyllAction () a
-            -> HakyllAction () a
-cacheAction key action = action { actionFunction = const cacheFunction }
-  where
-    cacheFunction = do
-        -- Construct a filename
-        fileName <- fmap (key </>) $ either id (const $ return "unknown")
-                                   $ actionUrl action
-        -- Check the cache
-        cacheOk <- isCacheMoreRecent fileName $ actionDependencies action
-        if cacheOk then getFromCache fileName
-                   else do result <- actionFunction action ()
-                           storeInCache result fileName
-                           return result
-- 
cgit v1.2.3