[commit: packages/base] master: Remove now-unnecessary NOINLINE pragmas (7123029)

git at git.haskell.org git at git.haskell.org
Fri Oct 18 11:33:04 UTC 2013


Repository : ssh://git@git.haskell.org/base

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/712302987cee0a30dd4ae89d43dcfc3a0119ac4e/base

>---------------------------------------------------------------

commit 712302987cee0a30dd4ae89d43dcfc3a0119ac4e
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Oct 18 12:32:51 2013 +0100

    Remove now-unnecessary NOINLINE pragmas
    
    The NOINLINEs were a work-around for a bug that was fixed
    by patch f7e7948 to ghc, which also fixed Trac #8449


>---------------------------------------------------------------

712302987cee0a30dd4ae89d43dcfc3a0119ac4e
 GHC/TypeLits.hs |    2 --
 1 file changed, 2 deletions(-)

diff --git a/GHC/TypeLits.hs b/GHC/TypeLits.hs
index ec48bf1..e88fc31 100644
--- a/GHC/TypeLits.hs
+++ b/GHC/TypeLits.hs
@@ -76,14 +76,12 @@ data SomeNat    = forall n. KnownNat n    => SomeNat    (Proxy n)
 data SomeSymbol = forall n. KnownSymbol n => SomeSymbol (Proxy n)
 
 -- | Convert an integer into an unknown type-level natural.
-{-# NOINLINE someNatVal #-}
 someNatVal :: Integer -> Maybe SomeNat
 someNatVal n
   | n >= 0        = Just (withSNat SomeNat (SNat n) Proxy)
   | otherwise     = Nothing
 
 -- | Convert a string into an unknown type-level symbol.
-{-# NOINLINE someSymbolVal #-}
 someSymbolVal :: String -> SomeSymbol
 someSymbolVal n   = withSSymbol SomeSymbol (SSymbol n) Proxy
 



More information about the ghc-commits mailing list