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

rescue old GHCs.

Browse Source
This commit is contained in:
Kazu Yamamoto
2014-04-28 14:36:55 +09:00
parent ae75872638
commit 9bc25046e3
2 changed files with 21 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Language/Haskell/GhcMod/Gap.hs
View File

@@ -28,6 +28,8 @@ module Language.Haskell.GhcMod.Gap (
, GapThing(..)
, fromTyThing
, fileModSummary
, WarnFlags
, emptyWarnFlags
) where
import Control.Applicative hiding (empty)
@@ -71,6 +73,10 @@ import Control.Arrow hiding ((<+>))
import Data.Convertible
#endif
#if __GLASGOW_HASKELL__ >= 704
import qualified Data.IntSet as I (IntSet, empty)
#endif
----------------------------------------------------------------
----------------------------------------------------------------
--
@@ -359,3 +365,16 @@ fromTyThing (ADataCon d) = GtA $ dataConRepType d
#endif
fromTyThing (ATyCon t) = GtT t
fromTyThing _ = GtN
----------------------------------------------------------------
----------------------------------------------------------------
#if __GLASGOW_HASKELL__ >= 704
type WarnFlags = I.IntSet
emptyWarnFlags :: WarnFlags
emptyWarnFlags = I.empty
#else
type WarnFlags = [WarningFlag]
emptyWarnFlags :: WarnFlags
emptyWarnFlags = []
#endif