1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +03:00

kill trace

This commit is contained in:
Patrick Thomson 2018-06-12 12:11:37 -04:00
parent 81482ee696
commit e661e49f73

View File

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