[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