uhc-util 0.1.0.1 → 0.1.0.2
raw patch · 3 files changed
+48/−7 lines, 3 filesdep +timedep +time-compatdep −old-timedep ~arraydep ~containersdep ~directoryPVP: minor bump suggested
API additions: PVP suggests at least a minor version bump
Dependencies added: time, time-compat
Dependencies removed: old-time
Dependency ranges changed: array, containers, directory
API changes (from Hackage documentation)
+ UHC.Util.FPath: fpathGetModificationTime :: FPath -> IO UTCTime
+ UHC.Util.Time: diffClockTimes :: UTCTime -> UTCTime -> NominalDiffTime
+ UHC.Util.Time: getClockTime :: IO ClockTime
+ UHC.Util.Time: noTimeDiff :: NominalDiffTime
+ UHC.Util.Time: type ClockTime = UTCTime
Files
- src/UHC/Util/FPath.hs +11/−0
- src/UHC/Util/Time.hs +28/−0
- uhc-util.cabal +9/−7
src/UHC/Util/FPath.hs view
@@ -36,6 +36,8 @@ , filePathMkPrefix, filePathUnPrefix , filePathCoalesceSeparator , filePathMkAbsolute, filePathUnAbsolute+ + , fpathGetModificationTime ) where @@ -46,6 +48,7 @@ import System.Directory import UHC.Util.Utils+import UHC.Util.Time ------------------------------------------------------------------------------------------- -- Making prefix and inverse, where a prefix has a tailing '/'@@ -351,3 +354,11 @@ = do fs <- searchPathForReadableFiles True paths suffs fp return (listToMaybe fs) +-------------------------------------------------------------------------------------------+-- Get modification time, with old-time + time compatibility+-------------------------------------------------------------------------------------------++fpathGetModificationTime :: FPath -> IO UTCTime+fpathGetModificationTime fp = do let fn = fpathToStr fp+ t <- getModificationTime fn+ return (toUTCTime t)
+ src/UHC/Util/Time.hs view
@@ -0,0 +1,28 @@+-- wrapping around time to look like old-time, only for that what is being used.++module UHC.Util.Time+ ( module Data.Time.Compat,+ module Data.Time,+ module Data.Time.Clock,+ ClockTime,+ diffClockTimes,+ noTimeDiff,+ getClockTime+ )+ where++import Data.Time+import Data.Time.Clock+import Data.Time.Compat++-- | a for now alias for old-time ClockTime+type ClockTime = UTCTime++diffClockTimes = diffUTCTime++noTimeDiff :: NominalDiffTime+noTimeDiff = toEnum 0++getClockTime :: IO ClockTime+getClockTime = getCurrentTime+
uhc-util.cabal view
@@ -1,5 +1,5 @@ Name: uhc-util-Version: 0.1.0.1+Version: 0.1.0.2 cabal-version: >= 1.6 License: BSD3 Copyright: Utrecht University, Department of Information and Computing Sciences, Software Technology group@@ -18,15 +18,16 @@ base >= 4 && < 5, mtl >= 2 && < 3, fgl >= 5.4 && < 6.0,- directory >= 1.2 && < 2, hashable >= 1.1 && < 1.2,- old-time >= 1.1 && < 1.2,- containers >= 0.4 && < 0.5,- array >= 0.4 && < 0.5,+ containers >= 0.4 && < 0.6,+ directory >= 1.1 && < 2,+ array >= 0.3 && < 0.5, process >= 1.1 && < 1.2, binary >= 0.5 && < 1, bytestring >= 0.9 && < 1,- uulib >= 0.9 && < 1+ uulib >= 0.9 && < 1,+ time-compat >= 0.1.0.1 && < 0.2,+ time >= 1.2 && < 1.5 Exposed-Modules: UHC.Util.AGraph, UHC.Util.Binary,@@ -43,7 +44,8 @@ UHC.Util.PrettyUtils, UHC.Util.Rel, UHC.Util.ScanUtils,- UHC.Util.Utils+ UHC.Util.Utils,+ UHC.Util.Time Ghc-Options: HS-Source-Dirs: src Build-Tools: