getModificationTime and directory-1.2

[Simon Hengel]

On Wed, Sep 12, 2012 at 07:04:18AM +0100, Ganesh Sittampalam wrote:
> The replacement is something like:
> 
>   t <- getModificationTime path
>   return $! fromInteger $ floor
>          $ t `diffUTCTime` UTCTime (fromGregorian 1970 1 1) 0

Not sure if it makes any difference, but I use:

    floor . utcTimeToPOSIXSeconds <$> getModificationTime path

Cheers,
Simon