From 0f5eae0232a86ec57d841a83e6929361e2751270 Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Sun, 15 Sep 2013 23:05:05 +0200 Subject: Constant-fold `__GLASGOW_HASKELL__` CPP conditionals Now that HUGS and NHC specific code has been removed, this commit "folds" the now redundant `#if((n)def)`s containing `__GLASGOW_HASKELL__`. This renders `base` officially GHC only. This commit also removes redundant `{-# LANGUAGE CPP #-}`. Signed-off-by: Herbert Valerio Riedel --- libraries/base/Data/String.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'libraries/base/Data/String.hs') diff --git a/libraries/base/Data/String.hs b/libraries/base/Data/String.hs index 8c24fb9e6e..a03569f21f 100644 --- a/libraries/base/Data/String.hs +++ b/libraries/base/Data/String.hs @@ -1,5 +1,5 @@ {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE CPP, NoImplicitPrelude, FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude, FlexibleInstances #-} ----------------------------------------------------------------------------- -- | @@ -26,10 +26,7 @@ module Data.String ( , unwords ) where -#ifdef __GLASGOW_HASKELL__ import GHC.Base -#endif - import Data.List (lines, words, unlines, unwords) -- | Class for string-like datastructures; used by the overloaded string -- cgit v1.2.1