-allowed_combinations way = ways `elem` combs
- where -- the sub-lists must be ordered according to WayName, because findBuildTag sorts them
+allowed_combination way = way `elem` combs
+ where -- the sub-lists must be ordered according to WayName,
+ -- because findBuildTag sorts them