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

adding a comment.

Browse Source
This commit is contained in:
Kazu Yamamoto 2013-03-13 13:22:02 +09:00
parent 539fd305bd
commit b35d19beec
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Check.hs
View File

@ -23,6 +23,10 @@ check opt cradle fileName = withGHC fileName $ checkIt `gcatch` handleErrMsg
checkIt = do checkIt = do
readLog <- initializeFlagsWithCradle opt cradle options True readLog <- initializeFlagsWithCradle opt cradle options True
setTargetFile fileName setTargetFile fileName
-- To check TH, a session module graph is necessary.
-- "load" sets a session module graph using "depanal".
-- But we have to set "-fno-code" to DynFlags before "load".
-- So, this is necessary redundancy.
slow <- needsTemplateHaskell <$> depanal [] False slow <- needsTemplateHaskell <$> depanal [] False
when slow setSlowDynFlags when slow setSlowDynFlags
void $ load LoadAllTargets void $ load LoadAllTargets