Use time package so we're ghc 7.6 compatible

This commit is contained in:
Tim Dysinger 2012-09-27 14:32:18 -10:00
parent 2ca6e2ee08
commit 24f1613e91
2 changed files with 3 additions and 1 deletions

View File

@ -10,6 +10,7 @@ import Data.Generics
import Data.List
import Data.Maybe
import Data.Ord as O
import Data.Time.Clock
import DynFlags (tracingDynFlags)
import Desugar
import GHC
@ -159,7 +160,7 @@ inModuleContext opt fileName modstr action errmsg =
moddef = "module " ++ sanitize modstr ++ " where"
header = moddef : imports
importsBuf <- Gap.toStringBuffer header
clkTime <- Gap.liftIO getClockTime
clkTime <- Gap.liftIO getCurrentTime
setTargets [Target (TargetModule $ mkModuleName modstr) True (Just (importsBuf, clkTime))]
doif m t = m >>= \ok -> if ok then t else goNext
sanitize = fromMaybe "SomeModule" . listToMaybe . words

View File

@ -53,6 +53,7 @@ Executable ghc-mod
, hlint >= 1.7.1
, io-choice
, old-time
, time
, process
, regex-posix
, syb