Permalink
Browse files

Be a bit more verbose if the user requests so.

  • Loading branch information...
1 parent 484d146 commit 1248a2a49b0d99b920a3ab4a799d7181fb79cd6e @nominolo nominolo committed Mar 10, 2009
Showing with 4 additions and 1 deletion.
  1. +4 −1 src/Scion/Session.hs
View
@@ -117,9 +117,11 @@ resetSessionState = do
setWorkingDir :: FilePath -> ScionM ()
setWorkingDir home = do
cwd <- liftIO $ getCurrentDirectory
+ message deafening $ "Setting working directory: " ++ home ++ " (old: " ++ cwd ++ ")"
liftIO $ setCurrentDirectory home
cwd' <- liftIO $ getCurrentDirectory -- to avoid normalisation issues
- when (cwd /= cwd') $
+ when (cwd /= cwd') $ do
+ message deafening $ "(Working directory changed.)"
workingDirectoryChanged
-- * Cabal Projects
@@ -416,6 +418,7 @@ unload = do
-- no way to find out if there was an error from inside the program.
addCmdLineFlags :: [String] -> ScionM [PackageId]
addCmdLineFlags flags = do
+ message deafening $ "Setting Flags: " ++ show flags
dflags <- getSessionDynFlags
res <- gtry $ parseDynamicFlags dflags (map noLoc flags)
case res of

0 comments on commit 1248a2a

Please sign in to comment.