adding dumpSplicesFlag.

2014-03-27 20:54:18 +09:00
parent 5dbea7b909
commit f7f1e081c5
3 changed files with 16 additions and 5 deletions
--- a/Language/Haskell/GhcMod/Gap.hs
+++ b/Language/Haskell/GhcMod/Gap.hs
@@ -28,6 +28,7 @@ module Language.Haskell.GhcMod.Gap (
  , showDocWith
  , GapThing(..)
  , fromTyThing
+  , dumpSplicesFlag
  ) where

 import Control.Applicative hiding (empty)
@@ -348,3 +349,12 @@ fromTyThing (ADataCon d)               = GtA $ dataConRepType d
 #endif
 fromTyThing (ATyCon t)                 = GtT t
 fromTyThing _                          = GtN
+
+----------------------------------------------------------------
+
+#if __GLASGOW_HASKELL__ >= 707
+dumpSplicesFlag :: DumpFlag
+#else
+dumpSplicesFlag :: DynFlag
+#endif
+dumpSplicesFlag = Opt_D_dump_splices