@@ -30,8 +30,8 @@ toCodegenSet compatCodegen = fmap Set.fromList mList where
30 NONE -> Nothing
30 NONE -> Nothing
32testFamilies :: [TestFamily]
32testFamilies :: [TestFamily]
33−testFamilies = fmap instanciate testFamiliesData where
33+testFamilies = fmap instantiate testFamiliesData where
34− instanciate (id, name, testsData) = TestFamily id name tests where
34+ instantiate (id, name, testsData) = TestFamily id name tests where
35 tests = IMap.fromList (fmap makeSetCodegen testsData)
35 tests = IMap.fromList (fmap makeSetCodegen testsData)
36 makeSetCodegen (index, codegens) = (index, toCodegenSet codegens)
36 makeSetCodegen (index, codegens) = (index, toCodegenSet codegens)