From 75475b579d16a662bac05a783dd6099a4c960e8d Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Wed, 21 May 2014 07:33:35 +0000
Subject: [PATCH] in verbosity mode the compiler warns about missing paths

---
 src/compiler/GF/Infra/UseIO.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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