-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE CPP, NoImplicitPrelude, FlexibleInstances #-}
+
-----------------------------------------------------------------------------
-- |
-- Module : Data.String
class IsString a where
fromString :: String -> a
+#ifndef __NHC__
instance IsString [Char] where
fromString xs = xs
-
+#endif