github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
Code Issues Projects Releases Wiki Activity

kill trace

Browse Source
This commit is contained in:
Patrick Thomson 2018-06-12 12:11:37 -04:00
parent 81482ee696
commit e661e49f73
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Project.hs
View File

@ -25,7 +25,6 @@ import Control.Monad.Effect.Exception
import Data.Blob
import Data.Language
import qualified Data.Text as T
import Debug.Trace
import Proto3.Suite
import System.FilePath.Posix
@ -109,7 +108,7 @@ readFile :: Member (Exc SomeException) effs
-> Eff effs (Maybe Blob)
readFile Project{..} f =
let p = filePath f
candidate = find (\b -> blobPath b == p) (traceShowId projectBlobs)
candidate = find (\b -> blobPath b == p) projectBlobs
in if
| p == "/dev/null" -> pure Nothing
| isJust candidate -> pure candidate