yjtools-0.5: System/Directory/Tools.hs

module System.Directory.Tools (
  maybeGetModificationTime
) where

import System.Directory    (doesFileExist, getModificationTime)
import System.Time         (ClockTime)
import Control.Applicative ((<$>))
import Control.Monad.Tools (ifM)

maybeGetModificationTime :: FilePath -> IO (Maybe ClockTime)
maybeGetModificationTime fn
  = ifM (doesFileExist fn)
        (Just <$> getModificationTime fn)
	(return Nothing)