GHC/Magic.hs

   1 -----------------------------------------------------------------------------
   2 -- |
   3 -- Module      :  GHC.Magic
   4 -- Copyright   :  (c) The University of Glasgow 2009
   5 -- License     :  see libraries/ghc-prim/LICENSE
   6 --
   7 -- Maintainer  :  cvs-ghc@haskell.org
   8 -- Stability   :  internal
   9 -- Portability :  non-portable (GHC Extensions)
  10 --
  11 -- GHC magic.
  12 -- Use GHC.Exts from the base package instead of importing this
  13 -- module directly.
  14 --
  15 -----------------------------------------------------------------------------
  16
  17 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
  18
  19 module GHC.Magic (inline) where
  20
  21 -- | The call '(inline f)' reduces to 'f', but 'inline' has a BuiltInRule
  22 -- that tries to inline 'f' (if it has an unfolding) unconditionally
  23 -- The 'NOINLINE' pragma arranges that inline only gets inlined (and
  24 -- hence eliminated) late in compilation, after the rule has had
  25 -- a good chance to fire.
  26 inline :: a -> a
  27 {-# NOINLINE[0] inline #-}
  28 inline x = x
  29