From: Norman Ramsey <nr@eecs.harvard.edu>
Date: Sun, 17 Sep 2006 00:23:53 +0000 (+0000)
Subject: tell GHC not to generate code (thanks Simon M)
X-Git-Tag: 2007-11-11~50
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=8d76268bfe3046dda8a07f3cb72c720242eebefe

tell GHC not to generate code (thanks Simon M)
---

diff --git a/utils/ghctags/GhcTags.hs b/utils/ghctags/GhcTags.hs
index 2b713fe..65f53f8 100644
--- a/utils/ghctags/GhcTags.hs
+++ b/utils/ghctags/GhcTags.hs
@@ -51,7 +51,8 @@ main = do
           session <- newSession JustTypecheck
           print "created a session"
           flags <- getSessionDynFlags session
-          (flags, _) <- parseDynamicFlags flags ghcArgs
+          (pflags, _) <- parseDynamicFlags flags ghcArgs
+          let flags = pflags { hscTarget = HscNothing }
           GHC.defaultCleanupHandler flags $ do
             flags <- initPackages flags
             setSessionDynFlags session flags