s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects Releases Wiki Activity

Fix anchoring when viewing output

Browse Source
This commit is contained in:
Filip Gralinski 2020-08-14 21:07:19 +02:00
parent 863650d686
commit c028e4b6cc
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Handler/Query.hs
View File

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