X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fprelude%2FPrelNames.lhs;h=09f632838a6a21673b76cd19ecceb14279d8ae8c;hb=c559d7b34529e75285f78f84687fa8b69bfea6d6;hp=35c828f6192a2c78687001802ed6c8b67e00d835;hpb=e30aca19def5c629a8429bd57e56535b7f8f85c8;p=ghc-hetmet.git

diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs
index 35c828f..09f6328 100644
--- a/compiler/prelude/PrelNames.lhs
+++ b/compiler/prelude/PrelNames.lhs
@@ -238,6 +238,7 @@ gHC_LIST	= mkBaseModule FSLIT("GHC.List")
 gHC_PARR	= mkBaseModule FSLIT("GHC.PArr")
 dATA_TUP	= mkBaseModule FSLIT("Data.Tuple")
 dATA_EITHER	= mkBaseModule FSLIT("Data.Either")
+dATA_STRING	= mkBaseModule FSLIT("Data.String")
 gHC_PACK	= mkBaseModule FSLIT("GHC.Pack")
 gHC_CONC	= mkBaseModule FSLIT("GHC.Conc")
 gHC_IO_BASE	= mkBaseModule FSLIT("GHC.IOBase")
@@ -490,7 +491,7 @@ returnMName	   = methName gHC_BASE FSLIT("return") returnMClassOpKey
 failMName	   = methName gHC_BASE FSLIT("fail")   failMClassOpKey
 
 -- Random PrelBase functions
-fromStringName    = methName gHC_BASE FSLIT("fromString") fromStringClassOpKey
+fromStringName = methName dATA_STRING FSLIT("fromString") fromStringClassOpKey
 otherwiseIdName   = varQual gHC_BASE FSLIT("otherwise")  otherwiseIdKey
 foldrName	  = varQual gHC_BASE FSLIT("foldr")      foldrIdKey
 buildName	  = varQual gHC_BASE FSLIT("build")      buildIdKey