From 6808c5350e4eafacf115eb24078c61cf59caa4b2 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Fri, 16 Sep 2011 20:42:31 +0200 Subject: Add modification time access for resources --- src/Hakyll/Core/Resource/Provider/Dummy.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Hakyll/Core/Resource/Provider/Dummy.hs') diff --git a/src/Hakyll/Core/Resource/Provider/Dummy.hs b/src/Hakyll/Core/Resource/Provider/Dummy.hs index 9f15178..dad7b0b 100644 --- a/src/Hakyll/Core/Resource/Provider/Dummy.hs +++ b/src/Hakyll/Core/Resource/Provider/Dummy.hs @@ -7,9 +7,10 @@ module Hakyll.Core.Resource.Provider.Dummy import Data.Map (Map) import qualified Data.Map as M +import Data.Time (getCurrentTime) +import Data.ByteString.Lazy (ByteString) import qualified Data.Text.Lazy as TL import qualified Data.Text.Lazy.Encoding as TL -import Data.ByteString.Lazy (ByteString) import Hakyll.Core.Resource import Hakyll.Core.Resource.Provider @@ -21,3 +22,4 @@ dummyResourceProvider vfs = makeResourceProvider (map Resource (M.keys vfs)) (return . TL.unpack . TL.decodeUtf8 . (vfs M.!) . unResource) (return . (vfs M.!) . unResource) + (const getCurrentTime) -- cgit v1.2.3