patrickaldis/garnet
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor refactor

Browse Source
This commit is contained in:
George Thomas 2026-01-05 15:31:16 +00:00
parent a47e738ec2
commit fbc63c221b
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
haskell/Main.hs
View File

@ -47,13 +47,10 @@ main =
mapHListF (\(Fanout (f, Op o)) -> (o &&& id) $ f input) parts mapHListF (\(Fanout (f, Op o)) -> (o &&& id) $ f input) parts
in pure (input, rs, os) in pure (input, rs, os)
) )
$ ( flip map ([0 :: Int .. foldHListF0 (const succ) 0 parts - 1]) $ $ ( [0 :: Int .. foldHListF0 (const succ) 0 parts - 1] <&> \n@(show . succ -> nt) ->
\n@(show . succ -> nt) ->
TestTree TestTree
(mkTestName nt) (mkTestName nt)
( \(_, rs, _) -> do (\(_, rs, _) -> golden ("../outputs/" <> t <> "/" <> pt <> "/" <> nt) $ (rs !! n) <> "\n")
golden ("../outputs/" <> t <> "/" <> pt <> "/" <> nt) $ (rs !! n) <> "\n"
)
[] []
) )
<> let ts = extraTests isRealData ("../outputs/" <> t <> "/" <> pt <> "/extra/") <> let ts = extraTests isRealData ("../outputs/" <> t <> "/" <> pt <> "/extra/")