diff --git a/src/Semantic/Task.hs b/src/Semantic/Task.hs
index 785ed8e0d..df817126b 100644
--- a/src/Semantic/Task.hs
+++ b/src/Semantic/Task.hs
@@ -224,7 +224,8 @@ runParser Options{..} blob@Blob{..} = go
           liftIO (treeSitterParser tslanguage blob)
       MarkdownParser ->
         time "parse.cmark_parse" languageTag $
-          pure (cmarkParser blobSource)
+          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]