diff --git a/src/Hakyll/Core/Provider/Internal.hs b/src/Hakyll/Core/Provider/Internal.hs index fdf134259..0ffa80d2c 100644 --- a/src/Hakyll/Core/Provider/Internal.hs +++ b/src/Hakyll/Core/Provider/Internal.hs @@ -197,9 +197,14 @@ resourceModificationTime p i = fileModificationTime :: FilePath -> IO UTCTime fileModificationTime fp = do #if MIN_VERSION_directory(1,2,0) - getModificationTime fp + time <- getModificationTime fp #else ct <- toCalendarTime =<< getModificationTime fp let str = formatCalendarTime defaultTimeLocale "%s" ct - return $ readTime defaultTimeLocale "%s" str + time <- readTime defaultTimeLocale "%s" str #endif + + -- shave sub-second precision + let dt = secondsToDiffTime . floor $ utctDayTime time + + return $ time { utctDayTime = dt }