This commit is contained in:
2024-10-08 10:47:31 +01:00
parent 30aa3aaaa1
commit da5a895f24
4 changed files with 31 additions and 34 deletions
+2 -1
View File
@@ -22,7 +22,8 @@ import Dodge.Item.Orientation
import LensHelp
import ListHelp
useBreakL :: [(ItemStructuralFunction, ComposeLinkType)] -> [(ItemStructuralFunction, ComposeLinkType)]
useBreakL :: [(ItemStructuralFunction, ComposeLinkType)]
-> [(ItemStructuralFunction, ComposeLinkType)]
-> LinkTest
useBreakL x y = useBreakListsLinkTest (map (uncurry noa) x) (map (uncurry noa) y)
where