diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-11-02 15:59:54 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-11-02 15:59:54 +0000 |
| commit | 74994950890326278d083f87f2507a898178a38e (patch) | |
| tree | 25dbf8d85a3425506de147433de63a32539ba1f5 /compiler/prelude | |
| parent | b9a98f56bf88c69a13b477ab8422fbd71df20019 (diff) | |
| download | haskell-74994950890326278d083f87f2507a898178a38e.tar.gz | |
(>>>) now comes from GHC.Desugar
Diffstat (limited to 'compiler/prelude')
| -rw-r--r-- | compiler/prelude/PrelNames.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs index 16ec9a910e..86267fb472 100644 --- a/compiler/prelude/PrelNames.lhs +++ b/compiler/prelude/PrelNames.lhs @@ -268,6 +268,7 @@ gHC_WORD = mkBaseModule FSLIT("GHC.Word") mONAD = mkBaseModule FSLIT("Control.Monad") mONAD_FIX = mkBaseModule FSLIT("Control.Monad.Fix") aRROW = mkBaseModule FSLIT("Control.Arrow") +gHC_DESUGAR = mkBaseModule FSLIT("GHC.Desugar") rANDOM = mkBaseModule FSLIT("System.Random") gLA_EXTS = mkBaseModule FSLIT("GHC.Exts") @@ -655,7 +656,7 @@ mfixName = methName mONAD_FIX FSLIT("mfix") mfixIdKey -- Arrow notation arrAName = varQual aRROW FSLIT("arr") arrAIdKey -composeAName = varQual aRROW FSLIT(">>>") composeAIdKey +composeAName = varQual gHC_DESUGAR FSLIT(">>>") composeAIdKey firstAName = varQual aRROW FSLIT("first") firstAIdKey appAName = varQual aRROW FSLIT("app") appAIdKey choiceAName = varQual aRROW FSLIT("|||") choiceAIdKey |