Search page: results in table

runeksvendsen · Oct 12, 2023 · 8dd1b90 · 8dd1b90
1 parent fd62d9e
commit 8dd1b90
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/server/Server/Pages/Search.hs b/src/server/Server/Pages/Search.hs
@@ -18,7 +18,10 @@ import Data.List (intersperse)
 page :: MyLib.Graph -> T.Text -> T.Text -> Handler (Html ())
 page graph src dst = pure $ do
   p_ $ "Hi there, you entered src=" <> mono (toHtml src) <> ", dst=" <> mono (toHtml dst)
-  forM_ results $ \result -> renderResult result >> br_ []
+  table_ $
+    tbody_ $
+      forM_ results $ \result ->
+        tr_ $ td_ $ renderResult result
   where
     maxCount = 20