X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FString.hs;h=ac1e416c90377cda0ca8fe0f8e8374c62ec48de2;hb=HEAD;hp=67b317925275a65bee62c4ef7207cc2dc3e9e72c;hpb=10de2c656f74562b662c22928be85e1b3ccda796;p=ghc-base.git

diff --git a/Data/String.hs b/Data/String.hs
index 67b3179..ac1e416 100644
--- a/Data/String.hs
+++ b/Data/String.hs
@@ -1,4 +1,5 @@
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE CPP, NoImplicitPrelude, FlexibleInstances #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.String
@@ -9,23 +10,33 @@
 -- Stability   :  experimental
 -- Portability :  portable
 --
--- Things related to the String type.
+-- The @String@ type and associated operations.
 --
 -----------------------------------------------------------------------------
 
 module Data.String (
-   IsString(..)
+   String
+ , IsString(..)
+
+ -- * Functions on strings
+ , lines
+ , words
+ , unlines
+ , 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
 --   extension (-foverloaded-strings in GHC).
 class IsString a where
     fromString :: String -> a
 
+#ifndef __NHC__
 instance IsString [Char] where
     fromString xs = xs
-
+#endif