fe673bc · hakyll · git.iko.soy

on master help sign in

Conditional getModificationTime

fe673bcJasper Van der Jeugt14 years ago

src/Hakyll/Core/Resource/Provider/File.hs+5

@@ -1,5 +1,6 @@

1-- | A concrete 'ResourceProvider' that gets it's resources from the filesystem

2--

3+{-# LANGUAGE CPP #-}

3module Hakyll.Core.Resource.Provider.File

4module Hakyll.Core.Resource.Provider.File

4 ( fileResourceProvider

5 ( fileResourceProvider

5 ) where

6 ) where

@@ -29,6 +30,10 @@ fileResourceProvider configuration = do

29 (mtime . unResource)

30 (mtime . unResource)

30 where

31 where

31 mtime r = do

32 mtime r = do

33+#if MIN_VERSION_directory(1,2,0)

34+ getModificationTime r

35+#else

32 ct <- toCalendarTime =<< getModificationTime r

36 ct <- toCalendarTime =<< getModificationTime r

33 let str = formatCalendarTime defaultTimeLocale "%s" ct

37 let str = formatCalendarTime defaultTimeLocale "%s" ct

34 return $ readTime defaultTimeLocale "%s" str

38 return $ readTime defaultTimeLocale "%s" str

39+#endif