Switch to using the time package, rather than old-time
authorIan Lynagh <igloo@earth.li>
Sat, 14 Jan 2012 17:07:49 +0000 (17:07 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 14 Jan 2012 17:07:49 +0000 (17:07 +0000)
Trace/Hpc/Mix.hs
hpc.cabal

index 80009c5..d1533e2 100644 (file)
@@ -14,15 +14,13 @@ module Trace.Hpc.Mix
         , CondBox(..)
         , mixCreate
         , readMix
-        , Trace.Hpc.Mix.getModificationTime
         , createMixEntryDom
         , MixEntryDom
         )
   where
 
-import System.Time (ClockTime(..))
-import System.Directory (getModificationTime)
 import Data.Maybe (catMaybes)
+import Data.Time
 import Data.Tree
 import Data.Char
 
@@ -41,16 +39,12 @@ import Trace.Hpc.Tix
 
 data Mix = Mix
              FilePath           -- location of original file
-             Integer            -- time (in seconds) of original file's last update, since 1970.
+             UTCTime            -- time of original file's last update
              Hash               -- hash of mix entry + timestamp
              Int                -- tab stop value.
              [MixEntry]         -- entries
         deriving (Show,Read)
 
--- We would rather use ClockTime in Mix, but ClockTime has no Read instance in 6.4 and before,
--- but does in 6.6. Definining the instance for ClockTime here is the Wrong Thing to do,
--- because if some other program also defined that instance, we will not be able to compile.
-
 type MixEntry = (HpcPos, BoxLabel)
 
 data BoxLabel = ExpBox  Bool -- isAlt
@@ -111,13 +105,6 @@ readMix dirNames mod' = do
 mixName :: FilePath -> String -> String
 mixName dirName name = dirName ++ "/" ++ name ++ ".mix"
 
--- | Get modification time of a file.
-
-getModificationTime :: FilePath -> IO Integer
-getModificationTime file = do
-  (TOD sec _) <- System.Directory.getModificationTime file
-  return $ sec
-
 ------------------------------------------------------------------------------
 
 type MixEntryDom a = Tree (HpcPos,a)
index d4fcf43..10ffb13 100644 (file)
--- a/hpc.cabal
+++ b/hpc.cabal
@@ -27,7 +27,7 @@ Library
     if flag(small_base)
         Build-Depends: base       >= 3   && < 5,
                        directory  >= 1   && < 1.2,
-                       old-time   >= 1   && < 1.1,
+                       time                 < 1.5,
                        containers >= 0.1 && < 0.5
     else
         Build-Depends: base < 3