aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDavid Waern <unknown>2007-07-11 21:52:38 +0000
committerDavid Waern <unknown>2007-07-11 21:52:38 +0000
commit0d894b3dc7883da2a23b7ffaa0a682b3ad5adfd0 (patch)
tree61a4abb08d0dc8a3bd23874cf20b630badc6ed05 /src
parentd086d2a733fa0256f65038be8f2f6d10f5d1fcde (diff)
Follow changes to the GHC API
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 9f7ff25f..2e5610d5 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -325,7 +325,7 @@ sortAndCheckModules session files = do
modsum <- sortedModules,
modSumFile modsum `elem` files ]
checkedMods <- mapM (\(mod, file) -> do
- mbMod <- checkModule session (moduleName mod)
+ mbMod <- checkModule session (moduleName mod) False
checkedMod <- case mbMod of
Just m -> return m
Nothing -> throwE ("Failed to load module: " ++ moduleString mod)
@@ -336,7 +336,7 @@ sortAndCheckModules session files = do
| length modules' == length modules = return modules'
| otherwise = throwE "Failed to check all modules properly"
where modules' = [ (mod, f, (a,b,c,d)) |
- (mod, f, CheckedModule a (Just b) (Just c) (Just d))
+ (mod, f, CheckedModule a (Just b) (Just c) (Just d) _)
<- modules ]
run :: [Flag] -> [CheckedMod] -> Map Name Name -> IO ()