Merge pull request #1 from rneatherway/master

Prevent unconditional debug output
fsharp · Oct 20, 2013 · e423020 · e423020
2 parents 23d55a7 + b4baf4e
commit e423020
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fsharp/vs/ServiceDeclarations.fs b/src/fsharp/vs/ServiceDeclarations.fs
@@ -225,7 +225,7 @@ module internal ItemDescriptionsImpl =
     /// Work out the likely source file for an item
     let fileNameOfItem (g:TcGlobals) qualProjectDir (m:range) h =
         let file = m.FileName 
-        dprintf "file stored in metadata is '%s'\n" file
+        if verbose then dprintf "file stored in metadata is '%s'\n" file
         if not (FileSystem.IsPathRootedShim file) then 
             match (ccuOfItem g h) with 
             | Some ccu ->