hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use time package so we're ghc 7.6 compatible

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Info.hs
View File

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

1
ghc-mod.cabal
View File

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