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

diff --git a/Data/String.hs b/Data/String.hs
index dae81a2..ac1e416 100644
--- a/Data/String.hs
+++ b/Data/String.hs
@@ -36,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