diff options
| author | Teo Camarasu <teofilcamarasu@gmail.com> | 2022-05-02 11:13:04 +0100 |
|---|---|---|
| committer | Teo Camarasu <teofilcamarasu@gmail.com> | 2022-05-29 12:25:39 +0000 |
| commit | 0092c67cffb707611b2684df24a1a77e40c01cb7 (patch) | |
| tree | e2f600a72b6c7e688f9806329f0abe5fa655d260 /compiler/GHC | |
| parent | fbf2f254ec85bd696859f939698edfaef8ff708c (diff) | |
| download | haskell-0092c67cffb707611b2684df24a1a77e40c01cb7.tar.gz | |
export IsList from GHC.IsList
it is still re-exported from GHC.Exts
Diffstat (limited to 'compiler/GHC')
| -rw-r--r-- | compiler/GHC/Builtin/Names.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/compiler/GHC/Builtin/Names.hs b/compiler/GHC/Builtin/Names.hs index 8aad951de0..6050ceac0d 100644 --- a/compiler/GHC/Builtin/Names.hs +++ b/compiler/GHC/Builtin/Names.hs @@ -544,7 +544,7 @@ gHC_PRIM, gHC_PRIM_PANIC, gHC_PRIM_EXCEPTION, gHC_FLOAT, gHC_TOP_HANDLER, sYSTEM_IO, dYNAMIC, tYPEABLE, tYPEABLE_INTERNAL, gENERICS, rEAD_PREC, lEX, gHC_INT, gHC_WORD, mONAD, mONAD_FIX, mONAD_ZIP, mONAD_FAIL, - aRROW, gHC_DESUGAR, rANDOM, gHC_EXTS, + aRROW, gHC_DESUGAR, rANDOM, gHC_EXTS, gHC_IS_LIST, cONTROL_EXCEPTION_BASE, gHC_TYPEERROR, gHC_TYPELITS, gHC_TYPELITS_INTERNAL, gHC_TYPENATS, gHC_TYPENATS_INTERNAL, dATA_COERCE, dEBUG_TRACE, uNSAFE_COERCE :: Module @@ -606,6 +606,7 @@ aRROW = mkBaseModule (fsLit "Control.Arrow") gHC_DESUGAR = mkBaseModule (fsLit "GHC.Desugar") rANDOM = mkBaseModule (fsLit "System.Random") gHC_EXTS = mkBaseModule (fsLit "GHC.Exts") +gHC_IS_LIST = mkBaseModule (fsLit "GHC.IsList") cONTROL_EXCEPTION_BASE = mkBaseModule (fsLit "Control.Exception.Base") gHC_GENERICS = mkBaseModule (fsLit "GHC.Generics") gHC_TYPEERROR = mkBaseModule (fsLit "GHC.TypeError") @@ -1473,10 +1474,10 @@ zipName = varQual gHC_LIST (fsLit "zip") zipIdKey -- Overloaded lists isListClassName, fromListName, fromListNName, toListName :: Name -isListClassName = clsQual gHC_EXTS (fsLit "IsList") isListClassKey -fromListName = varQual gHC_EXTS (fsLit "fromList") fromListClassOpKey -fromListNName = varQual gHC_EXTS (fsLit "fromListN") fromListNClassOpKey -toListName = varQual gHC_EXTS (fsLit "toList") toListClassOpKey +isListClassName = clsQual gHC_IS_LIST (fsLit "IsList") isListClassKey +fromListName = varQual gHC_IS_LIST (fsLit "fromList") fromListClassOpKey +fromListNName = varQual gHC_IS_LIST (fsLit "fromListN") fromListNClassOpKey +toListName = varQual gHC_IS_LIST (fsLit "toList") toListClassOpKey -- HasField class ops getFieldName, setFieldName :: Name |