Add log message in backgroundTypecheckFile.

nominolo · Mar 13, 2009 · c6736be · c6736be
1 parent 3272e50
commit c6736be
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Scion/Session.hs b/src/Scion/Session.hs
@@ -526,6 +526,7 @@ backgroundTypecheckFile fname = do
                else return (True, rslt)
   where
    backgroundTypecheckFile' comp_rslt = do
+      message verbose $ "Background type checking: " ++ fname
       clearWarnings
       start_time <- liftIO $ getCurrentTime
       modsum <- preprocessModule