adding a comment.

2013-03-13 13:22:02 +09:00 · 2013-03-13 13:22:02 +09:00 · b35d19beec
commit b35d19beec
parent 539fd305bd
1 changed files with 4 additions and 0 deletions
--- a/Check.hs
+++ b/Check.hs
@ -23,6 +23,10 @@ check opt cradle fileName = withGHC fileName $ checkIt `gcatch` handleErrMsg
    checkIt = do
        readLog <- initializeFlagsWithCradle opt cradle options True
        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
        when slow setSlowDynFlags
        void $ load LoadAllTargets