diff --git a/src/Semantic/Task.hs b/src/Semantic/Task.hs
index 84f1ae662..f25c5507f 100644
--- a/src/Semantic/Task.hs
+++ b/src/Semantic/Task.hs
@@ -221,7 +221,10 @@ runParser Options{..} blob@Blob{..} = go
       TreeSitterParser tslanguage ->
         time "parse.tree_sitter_parse" languageTag $
           liftIO (treeSitterParser tslanguage blob)
-      MarkdownParser -> pure (cmarkParser blobSource)
+      MarkdownParser ->
+        time "parse.cmark_parse" languageTag $
+          let term = cmarkParser blobSource
+          in length term `seq` pure term
     blobFields = ("path", blobPath) : languageTag
     languageTag = maybe [] (pure . (,) ("language" :: String) . show) blobLanguage
     errors :: (Syntax.Error :< fs, Apply Foldable fs, Apply Functor fs) => Term (Union fs) (Record Assignment.Location) -> [Error.Error String]