diff options
Diffstat (limited to 'libraries/base/Data/Function.hs')
| -rw-r--r-- | libraries/base/Data/Function.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/libraries/base/Data/Function.hs b/libraries/base/Data/Function.hs index b2dc5adbd2..90f5bbc17b 100644 --- a/libraries/base/Data/Function.hs +++ b/libraries/base/Data/Function.hs @@ -1,3 +1,5 @@ +{-# LANGUAGE ExplicitForAll #-} +{-# LANGUAGE PolyKinds #-} {-# LANGUAGE Trustworthy #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -25,7 +27,8 @@ module Data.Function , on ) where -import GHC.Base ( ($), (.), id, const, flip ) +import GHC.Base ( ($), (.), id, const, flip, RuntimeRep ) +import GHC.Prim ( TYPE ) infixl 0 `on` infixl 1 & @@ -116,7 +119,7 @@ on :: (b -> b -> c) -> (a -> b) -> a -> a -> c -- "6" -- -- @since 4.8.0.0 -(&) :: a -> (a -> b) -> b +(&) :: forall {rep :: RuntimeRep} a (b :: TYPE rep). a -> (a -> b) -> b x & f = f x -- $setup |