From: Simon Marlow <simonmar@microsoft.com>
Date: Mon, 5 Nov 2007 14:22:17 +0000 (+0000)
Subject: catch up with changes to checkModule
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=cf05b97f5c181059418c53e43fab946734cfb41d

catch up with changes to checkModule
---

diff --git a/utils/ghctags/GhcTags.hs b/utils/ghctags/GhcTags.hs
index 1c7801a..0c9bd35 100644
--- a/utils/ghctags/GhcTags.hs
+++ b/utils/ghctags/GhcTags.hs
@@ -169,7 +169,7 @@ graphData session graph =
     where foundthings ms =
               let filename = msHsFilePath ms
                   modname = moduleName $ ms_mod ms
-              in  do mod <- checkModule session modname
+              in  do mod <- checkModule session modname False
                      return $ maybe (FileData filename []) id $ do
                        m <- mod
                        s <- renamedSource m