64 lines
2.0 KiB
Haskell
64 lines
2.0 KiB
Haskell
-- ghc-mod: Happy Haskell Hacking
|
|
-- Copyright (C) 2015 Daniel Gröber <dxld ÄT darkboxed DOT org>
|
|
--
|
|
-- This program is free software: you can redistribute it and/or modify
|
|
-- it under the terms of the GNU Affero General Public License as published by
|
|
-- the Free Software Foundation, either version 3 of the License, or
|
|
-- (at your option) any later version.
|
|
--
|
|
-- This program is distributed in the hope that it will be useful,
|
|
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
-- GNU Affero General Public License for more details.
|
|
--
|
|
-- You should have received a copy of the GNU Affero General Public License
|
|
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
{-# LANGUAGE CPP, GeneralizedNewtypeDeriving #-}
|
|
module System.Directory.ModTime where
|
|
|
|
import Control.Applicative
|
|
import Control.DeepSeq
|
|
import Data.Binary
|
|
#if MIN_VERSION_directory(1,2,0)
|
|
import Data.Time (UTCTime(..), Day(..), getCurrentTime)
|
|
#else
|
|
import System.Time (ClockTime(..), getClockTime)
|
|
#endif
|
|
import System.Directory
|
|
import Prelude
|
|
|
|
#if MIN_VERSION_directory(1,2,0)
|
|
|
|
newtype ModTime = ModTime UTCTime
|
|
deriving (Eq, Ord, NFData)
|
|
getCurrentModTime = ModTime <$> getCurrentTime
|
|
|
|
instance Binary ModTime where
|
|
put (ModTime (UTCTime (ModifiedJulianDay day) difftime)) =
|
|
put day >> put (toRational difftime)
|
|
get =
|
|
ModTime <$> (UTCTime <$> (ModifiedJulianDay <$> get) <*> (fromRational <$> get))
|
|
|
|
#else
|
|
|
|
newtype ModTime = ModTime ClockTime
|
|
deriving (Eq, Ord)
|
|
getCurrentModTime = ModTime <$> getClockTime
|
|
|
|
instance Binary ModTime where
|
|
put (ModTime (TOD s ps)) =
|
|
put s >> put ps
|
|
get =
|
|
ModTime <$> (TOD <$> get <*> get)
|
|
|
|
instance NFData ModTime where
|
|
rnf (ModTime (TOD s ps)) =
|
|
s `seq` ps `seq` (ModTime $! TOD s ps) `seq` ()
|
|
|
|
#endif
|
|
|
|
getCurrentModTime :: IO ModTime
|
|
|
|
getModTime :: FilePath -> IO ModTime
|
|
getModTime f = ModTime <$> getModificationTime f
|