diff --git a/src/compiler/GF/Infra/UseIO.hs b/src/compiler/GF/Infra/UseIO.hs
index de3182f0e..fe1d01423 100644
--- a/src/compiler/GF/Infra/UseIO.hs
+++ b/src/compiler/GF/Infra/UseIO.hs
@@ -93,7 +93,8 @@ extendPathEnv opts = liftIO $ do
       _   -> do exists <- doesDirectoryExist p
                 if exists
                   then return [p]
-                  else return []
+                  else do when (verbAtLeast opts Verbose) $ putStrLn ("ignore path "++p)
+                          return []
 
 getSubdirs :: FilePath -> IO [FilePath]
 getSubdirs dir = do