diff options
| author | Csaba Hruska <csaba.hruska@gmail.com> | 2018-02-03 13:59:19 +0100 |
|---|---|---|
| committer | Csaba Hruska <csaba.hruska@gmail.com> | 2018-02-03 13:59:19 +0100 |
| commit | e91796d3cdc6304d8228483f1d41eea0f216f124 (patch) | |
| tree | 9a9363570eeceea2f1e8324c980f71d8ab4b6cfa /src | |
| parent | 1cf4ed5da574a6892df6b29b9a02fe94c5f6678f (diff) | |
hide debug message
Diffstat (limited to 'src')
| -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 |