summaryrefslogtreecommitdiff
path: root/src/Hakyll/Core/Resource/Provider/File.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Hakyll/Core/Resource/Provider/File.hs')
-rw-r--r--src/Hakyll/Core/Resource/Provider/File.hs10
1 files changed, 10 insertions, 0 deletions
diff --git a/src/Hakyll/Core/Resource/Provider/File.hs b/src/Hakyll/Core/Resource/Provider/File.hs
index c0e306a..abb7ebe 100644
--- a/src/Hakyll/Core/Resource/Provider/File.hs
+++ b/src/Hakyll/Core/Resource/Provider/File.hs
@@ -6,6 +6,10 @@ module Hakyll.Core.Resource.Provider.File
import Control.Applicative ((<$>))
+import Data.Time (readTime)
+import System.Directory (getModificationTime)
+import System.Locale (defaultTimeLocale)
+import System.Time (formatCalendarTime, toCalendarTime)
import qualified Data.ByteString.Lazy as LB
import Hakyll.Core.Resource
@@ -22,3 +26,9 @@ fileResourceProvider configuration = do
getRecursiveContents False "."
makeResourceProvider list (readFile . unResource)
(LB.readFile . unResource)
+ mtime
+ where
+ mtime (Resource r) = do
+ ct <- toCalendarTime =<< getModificationTime r
+ let str = formatCalendarTime defaultTimeLocale "%s" ct
+ return $ readTime defaultTimeLocale "%s" str