From e7c4e59aa3a3a2fbc3f3f90598f6b89a432ceb12 Mon Sep 17 00:00:00 2001
From: "Rune K. Svendsen" <runesvend@gmail.com>
Date: Wed, 13 Nov 2024 10:36:08 +0100
Subject: [PATCH] Add TODO

---
 src/server/Server/Pages/Search.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/server/Server/Pages/Search.hs b/src/server/Server/Pages/Search.hs
index 0d81ce5..f4ea363 100644
--- a/src/server/Server/Pages/Search.hs
+++ b/src/server/Server/Pages/Search.hs
@@ -225,6 +225,7 @@ page cfg (SearchEnv graph lookupVertex) srcTxt dstTxt maxCount' mNoGraph = do
         ]
         (mono $ toHtml $ FunGraph.fgPackageName fnPkg)
 
+    -- TODO: don't throw 404; display HTML message and populate suggestions
     lookupVertexM txt =
       maybe
         (throwError $ err404 { errBody = "Type not found: " <> TLE.encodeUtf8 (LT.fromStrict txt) })