diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-12-14 19:23:17 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-12-14 19:23:17 +0000 |
| commit | 6409ba527bfd7c7b536d0c523c5f99186cd258db (patch) | |
| tree | 9661d5f98e13631a4d03cd0c2ea0d7a3afc68fe5 /compiler/deSugar | |
| parent | ca56668af97f534b3cff8717fc35d795a0bcb47d (diff) | |
| download | haskell-6409ba527bfd7c7b536d0c523c5f99186cd258db.tar.gz | |
Rename remaining FastBytes usages to ByteString
Diffstat (limited to 'compiler/deSugar')
| -rw-r--r-- | compiler/deSugar/Check.lhs | 2 | ||||
| -rw-r--r-- | compiler/deSugar/DsBinds.lhs | 2 | ||||
| -rw-r--r-- | compiler/deSugar/MatchLit.lhs | 4 |
3 files changed, 4 insertions, 4 deletions
diff --git a/compiler/deSugar/Check.lhs b/compiler/deSugar/Check.lhs index ad590ae8d8..7736aa69ed 100644 --- a/compiler/deSugar/Check.lhs +++ b/compiler/deSugar/Check.lhs @@ -445,7 +445,7 @@ get_lit :: Pat id -> Maybe HsLit get_lit (LitPat lit) = Just lit get_lit (NPat (OverLit { ol_val = HsIntegral i}) mb _) = Just (HsIntPrim (mb_neg negate mb i)) get_lit (NPat (OverLit { ol_val = HsFractional f }) mb _) = Just (HsFloatPrim (mb_neg negateFractionalLit mb f)) -get_lit (NPat (OverLit { ol_val = HsIsString s }) _ _) = Just (HsStringPrim (fastStringToFastBytes s)) +get_lit (NPat (OverLit { ol_val = HsIsString s }) _ _) = Just (HsStringPrim (fastStringToByteString s)) get_lit _ = Nothing mb_neg :: (a -> a) -> Maybe b -> a -> a diff --git a/compiler/deSugar/DsBinds.lhs b/compiler/deSugar/DsBinds.lhs index 1e3eb2d8c4..4b7f8c0dd4 100644 --- a/compiler/deSugar/DsBinds.lhs +++ b/compiler/deSugar/DsBinds.lhs @@ -776,7 +776,7 @@ dsEvTerm (EvSuperClass d n) dsEvTerm (EvDelayedError ty msg) = return $ Var errorId `mkTyApps` [ty] `mkApps` [litMsg] where errorId = rUNTIME_ERROR_ID - litMsg = Lit (MachStr (fastStringToFastBytes msg)) + litMsg = Lit (MachStr (fastStringToByteString msg)) dsEvTerm (EvLit l) = case l of diff --git a/compiler/deSugar/MatchLit.lhs b/compiler/deSugar/MatchLit.lhs index 03ddc22fbf..80f2124d1f 100644 --- a/compiler/deSugar/MatchLit.lhs +++ b/compiler/deSugar/MatchLit.lhs @@ -133,7 +133,7 @@ hsLitKey _ (HsCharPrim c) = MachChar c hsLitKey _ (HsStringPrim s) = MachStr s hsLitKey _ (HsFloatPrim f) = MachFloat (fl_value f) hsLitKey _ (HsDoublePrim d) = MachDouble (fl_value d) -hsLitKey _ (HsString s) = MachStr (fastStringToFastBytes s) +hsLitKey _ (HsString s) = MachStr (fastStringToByteString s) hsLitKey _ l = pprPanic "hsLitKey" (ppr l) hsOverLitKey :: OutputableBndr a => HsOverLit a -> Bool -> Literal @@ -145,7 +145,7 @@ litValKey (HsIntegral i) False = MachInt i litValKey (HsIntegral i) True = MachInt (-i) litValKey (HsFractional r) False = MachFloat (fl_value r) litValKey (HsFractional r) True = MachFloat (negate (fl_value r)) -litValKey (HsIsString s) neg = ASSERT( not neg) MachStr (fastStringToFastBytes s) +litValKey (HsIsString s) neg = ASSERT( not neg) MachStr (fastStringToByteString s) \end{code} %************************************************************************ |