Sven Tennie pushed to branch wip/supersven/fix-foundation-test-shift-amounts at Glasgow Haskell Compiler / GHC Commits: a78cefc2 by Sven Tennie at 2025-08-29T13:06:32+02:00 Simplify is_shiftLikeOp - - - - - 1 changed file: - utils/genprimopcode/Syntax.hs Changes: ===================================== utils/genprimopcode/Syntax.hs ===================================== @@ -67,19 +67,10 @@ is_divLikeOp entry = case entry of _ -> False is_shiftLikeOp :: Entry -> Bool -is_shiftLikeOp entry = case entry of - PrimOpSpec{} -> has_shift_like - PseudoOpSpec{} -> has_shift_like - PrimVecOpSpec{} -> has_shift_like - PrimTypeSpec{} -> False - PrimVecTypeSpec{} -> False - Section{} -> False - where - has_shift_like = case entry of - PrimOpSpec { name = n } -> "Shift" `Data.List.isInfixOf` n - PseudoOpSpec { name = n } -> "Shift" `Data.List.isInfixOf` n - PrimVecOpSpec { name = n } -> "Shift" `Data.List.isInfixOf` n - _ -> False +is_shiftLikeOp (PrimOpSpec {name = n}) = "Shift" `Data.List.isInfixOf` n +is_shiftLikeOp (PseudoOpSpec {name = n}) = "Shift" `Data.List.isInfixOf` n +is_shiftLikeOp (PrimVecOpSpec {name = n}) = "Shift" `Data.List.isInfixOf` n +is_shiftLikeOp _ = False -- a binding of property to value data Option View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/a78cefc272c58a688f4db048944f13f1... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/a78cefc272c58a688f4db048944f13f1... You're receiving this email because of your account on gitlab.haskell.org.