ref: ff2c6f5d78a3a1ba4233cf8b3176778a06abc58d
parent: e1426d7f49c6c0f2303073514d5938a9f2917af4
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Thu Oct 19 10:39:41 EDT 2023
Add $!
--- a/lib/Data/Function.hs
+++ b/lib/Data/Function.hs
@@ -8,6 +8,10 @@
($) :: forall a b . (a -> b) -> a -> b
($) f x = f x
+infixr 0 $!
+($!) :: forall a b . (a -> b) -> a -> b
+($!) f x = x `primSeq` f x
+
infixr 9 .
(.) :: forall a b c . (b -> c) -> (a -> b) -> (a -> c)
(.) f g x = f (g x)
--
⑨