From c028e4b6cc99137c58d6e45d0a7ec9a434e39f4d Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filip.gralinski@applica.pl>
Date: Fri, 14 Aug 2020 21:07:19 +0200
Subject: [PATCH] Fix anchoring when viewing output

---
 Handler/Query.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Handler/Query.hs b/Handler/Query.hs
index dd15ecd..099783d 100644
--- a/Handler/Query.hs
+++ b/Handler/Query.hs
@@ -247,8 +247,9 @@ crossTableDefinition variantId (TableWithValues (headerH : headerR) _) = mempty
   ++ Table.text headerH fst
   ++ mconcat (map (\(ix, h) -> linkedWithAnchor h
                                                (snd . (!! ix) . snd)
-                                               ((\(e, _) -> ViewVariantTestR variantId (entityKey e)) . (!! ix) . snd)) $ zip [0..] headerR)
-                                               fst
+                                               ((\(e, _) -> ViewVariantTestR variantId (entityKey e)) . (!! ix) . snd)
+                                               (("worst-items-" <>) . testName . entityVal . fst . (!! ix) . snd))
+               $ zip [0..] headerR)
 crossTableDefinition _ _ = error $ "cross-tab of an unexpected size"
 
 crossTableBody :: TableWithValues (Entity Test, Text) -> [(Text, [(Entity Test, Text)])]