diff --git a/src/Semantic/Task.hs b/src/Semantic/Task.hs
index 04542b300..9933bb6ea 100644
--- a/src/Semantic/Task.hs
+++ b/src/Semantic/Task.hs
@@ -167,13 +167,11 @@ runParser blob@Blob{..} parser = case parser of
     time "parse.tree_sitter_ast_parse" languageTag $
       IO.rethrowing (parseToAST language blob)
   AssignmentParser parser assignment -> do
-    trace ("Parsing " <> blobPath)
     ast <- runParser blob parser `catchError` \ (SomeException err) -> do
       writeStat (Stat.increment "parse.parse_failures" languageTag)
       writeLog Error "failed parsing" (("task", "parse") : blobFields)
       throwError (toException err)
     options <- ask
-    trace ("Assigning " <> blobPath)
     time "parse.assign" languageTag $
       case Assignment.assign blobSource assignment ast of
         Left err -> do
diff --git a/vendor/haskell-tree-sitter b/vendor/haskell-tree-sitter
index 95316466e..81d266c8d 160000
--- a/vendor/haskell-tree-sitter
+++ b/vendor/haskell-tree-sitter
@@ -1 +1 @@
-Subproject commit 95316466eb752256acad81c64481d7be9d9ac2a5
+Subproject commit 81d266c8d46609fb6c9e69c610121be6d97612a6