summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--README.md2
-rw-r--r--src/LambdaCube/Compiler/DesugaredSource.hs2
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 @@
1# lambdacube-compiler 1# lambdacube-compiler
2 2
3[![Build Status](https://travis-ci.org/lambdacube3d/lambdacube-compiler.svg)](https://travis-ci.org/lambdacube3d/lambdacube-compiler) 3[![Build Status](https://travis-ci.org/lambdacube3d/lambdacube-compiler.svg?branch=master)](https://travis-ci.org/lambdacube3d/lambdacube-compiler)
4 4
5Compiler for LambdaCube 3D, a Haskell-like purely functional domain specific language for programming the GPU (graphics processing unit). 5Compiler for LambdaCube 3D, a Haskell-like purely functional domain specific language for programming the GPU (graphics processing unit).
6 6
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
96fileContent :: FileInfo -> String 96fileContent :: FileInfo -> String
97fileContent fi = unsafePerformIO $ do 97fileContent fi = unsafePerformIO $ do
98 let fname = filePath fi 98 let fname = filePath fi
99 BS.putStrLn $ BS.pack $ printf "load source %s" fname 99 --BS.putStrLn $ BS.pack $ printf "load source %s" fname
100 readFile fname 100 readFile fname
101 101
102instance Eq FileInfo where (==) = (==) `on` fileId 102instance Eq FileInfo where (==) = (==) `on` fileId