2 files changed, 2 insertions, 2 deletions

diff --git a/README.md b/README.md
index 288c9661..e7ba2765 100644
--- a/README.md
+++ b/README.md
@@ -1,6 +1,6 @@
 # lambdacube-compiler
 
-[![Build Status](https://travis-ci.org/lambdacube3d/lambdacube-compiler.svg)](https://travis-ci.org/lambdacube3d/lambdacube-compiler)
+[![Build Status](https://travis-ci.org/lambdacube3d/lambdacube-compiler.svg?branch=master)](https://travis-ci.org/lambdacube3d/lambdacube-compiler)
 
 Compiler for LambdaCube 3D, a Haskell-like purely functional domain specific language for programming the GPU (graphics processing unit).
 
diff --git a/src/LambdaCube/Compiler/DesugaredSource.hs b/src/LambdaCube/Compiler/DesugaredSource.hs
index ae2899bc..510b3de2 100644
--- a/src/LambdaCube/Compiler/DesugaredSource.hs
+++ b/src/LambdaCube/Compiler/DesugaredSource.hs
@@ -96,7 +96,7 @@ instance Binary FileInfo
 fileContent :: FileInfo -> String
 fileContent fi = unsafePerformIO $ do
   let fname = filePath fi
-  BS.putStrLn $ BS.pack $ printf "load source %s" fname
+  --BS.putStrLn $ BS.pack $ printf "load source %s" fname
   readFile fname
 
 instance Eq FileInfo where (==) = (==) `on` fileId