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

diff --git a/Data/String.hs b/Data/String.hs
index c2dc17e..ac1e416 100644
--- a/Data/String.hs
+++ b/Data/String.hs
@@ -1,4 +1,5 @@
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE CPP, NoImplicitPrelude, FlexibleInstances #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.String
@@ -35,6 +36,7 @@ import Data.List (lines, words, unlines, unwords)
 class IsString a where
     fromString :: String -> a
 
+#ifndef __NHC__
 instance IsString [Char] where
     fromString xs = xs
-
+#endif