@@ -1,5 +1,6 @@
11-- | A concrete 'ResourceProvider' that gets it's resources from the filesystem
22--
3+{-# LANGUAGE CPP #-}
34module Hakyll.Core.Resource.Provider.File
45 ( fileResourceProvider
56 ) where
@@ -29,6 +30,10 @@ fileResourceProvider configuration = do
2930 (mtime . unResource)
3031 where
3132 mtime r = do
33+#if MIN_VERSION_directory(1,2,0)
34+ getModificationTime r
35+#else
3236 ct <- toCalendarTime =<< getModificationTime r
3337 let str = formatCalendarTime defaultTimeLocale "%s" ct
3438 return $ readTime defaultTimeLocale "%s" str
39+#endif