From 6e8d7bd82350f53d2e0da157106b8f19bf5286ed Mon Sep 17 00:00:00 2001
From: eagletmt <eagletmt@gmail.com>
Date: Thu, 14 Mar 2013 22:41:52 +0900
Subject: [PATCH] info and type sub-commands also need TH check

---
 Info.hs | 5 +++++
 1 file changed, 5 insertions(+)

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