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

info and type sub-commands also need TH check

Browse Source
This commit is contained in:
eagletmt 2013-03-14 22:41:52 +09:00
parent 639147db66
commit 6e8d7bd823
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Info.hs
View File

@ -4,6 +4,7 @@
module Info (infoExpr, typeExpr) where module Info (infoExpr, typeExpr) where
import Control.Applicative import Control.Applicative
import Control.Monad (when)
import CoreUtils import CoreUtils
import Data.Function import Data.Function
import Data.Generics import Data.Generics
@ -145,11 +146,15 @@ inModuleContext opt cradle fileName modstr action errmsg =
valid = do valid = do
_ <- initializeFlagsWithCradle opt cradle ["-w"] False _ <- initializeFlagsWithCradle opt cradle ["-w"] False
setTargetFile fileName setTargetFile fileName
slow <- needsTemplateHaskell <$> depanal [] False
when slow setSlowDynFlags
_ <- load LoadAllTargets _ <- load LoadAllTargets
doif setContextFromTarget action doif setContextFromTarget action
invalid = do invalid = do
_ <- initializeFlagsWithCradle opt cradle ["-w"] False _ <- initializeFlagsWithCradle opt cradle ["-w"] False
setTargetBuffer setTargetBuffer
slow <- needsTemplateHaskell <$> depanal [] False
when slow setSlowDynFlags
_ <- load LoadAllTargets _ <- load LoadAllTargets
doif setContextFromTarget action doif setContextFromTarget action
setTargetBuffer = do setTargetBuffer = do