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

trying to fix travis ci.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-09-23 16:00:22 +09:00
parent 1545f05d87
commit 9974bcbf79
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ghc-mod.cabal
View File

@ -156,6 +156,7 @@ Executable ghc-modi
, containers , containers
, directory , directory
, filepath , filepath
, old-time
, process , process
, split , split
, time , time

8
src/Misc.hs
View File

@ -26,7 +26,11 @@ import CoreMonad (liftIO)
import Data.IORef (IORef, newIORef, readIORef, writeIORef) import Data.IORef (IORef, newIORef, readIORef, writeIORef)
import Data.List (isPrefixOf) import Data.List (isPrefixOf)
import Data.Maybe (isJust) import Data.Maybe (isJust)
#if __GLASGOW_HASKELL__ <= 704
import System.Time (ClockTime)
#else
import Data.Time (UTCTime) import Data.Time (UTCTime)
#endif
import Data.Typeable (Typeable) import Data.Typeable (Typeable)
import System.Directory (getModificationTime, doesDirectoryExist, getDirectoryContents) import System.Directory (getModificationTime, doesDirectoryExist, getDirectoryContents)
import System.IO (openBinaryFile, IOMode(..)) import System.IO (openBinaryFile, IOMode(..))
@ -50,7 +54,11 @@ instance Exception Restart
---------------------------------------------------------------- ----------------------------------------------------------------
data World = World { data World = World {
#if __GLASGOW_HASKELL__ <= 704
worldCabalFileModificationTime :: Maybe ClockTime
#else
worldCabalFileModificationTime :: Maybe UTCTime worldCabalFileModificationTime :: Maybe UTCTime
#endif
} deriving (Show, Eq) } deriving (Show, Eq)
getCurrentWorld :: IOish m => GhcModT m World getCurrentWorld :: IOish m => GhcModT m World