diff options
Diffstat (limited to 'src/LambdaCube/Compiler/DesugaredSource.hs')
-rw-r--r-- | src/LambdaCube/Compiler/DesugaredSource.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
96 | fileContent :: FileInfo -> String | 96 | fileContent :: FileInfo -> String |
97 | fileContent fi = unsafePerformIO $ do | 97 | fileContent 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 | ||
102 | instance Eq FileInfo where (==) = (==) `on` fileId | 102 | instance Eq FileInfo where (==) = (==) `on` fileId |