diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-12-15 20:10:06 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-12-15 20:10:06 +0000 |
| commit | edc0bafd3fcd01b85a2e8894e5dfe149eb0e0857 (patch) | |
| tree | 208bde3ea2b0de6ec9ed17a26e4b5990b92c1006 /compiler/utils/Serialized.hs | |
| parent | 4f37664780b85725ba3552b7de11c0e5e79d3fee (diff) | |
| download | haskell-edc0bafd3fcd01b85a2e8894e5dfe149eb0e0857.tar.gz | |
Remove code that is dead now that we need >= 6.12 to build
Diffstat (limited to 'compiler/utils/Serialized.hs')
| -rw-r--r-- | compiler/utils/Serialized.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/compiler/utils/Serialized.hs b/compiler/utils/Serialized.hs index 95a09b9f29..26cca6c386 100644 --- a/compiler/utils/Serialized.hs +++ b/compiler/utils/Serialized.hs @@ -82,11 +82,7 @@ serializeConstr :: ConstrRep -> [Word8] -> [Word8] serializeConstr (AlgConstr ix) = serializeWord8 1 . serializeInt ix serializeConstr (IntConstr i) = serializeWord8 2 . serializeInteger i serializeConstr (FloatConstr r) = serializeWord8 3 . serializeRational r -#if __GLASGOW_HASKELL__ < 611 -serializeConstr (StringConstr s) = serializeWord8 4 . serializeString s -#else serializeConstr (CharConstr c) = serializeWord8 4 . serializeChar c -#endif deserializeConstr :: [Word8] -> (ConstrRep -> [Word8] -> a) -> a @@ -95,11 +91,7 @@ deserializeConstr bytes k = deserializeWord8 bytes $ \constr_ix bytes -> 1 -> deserializeInt bytes $ \ix -> k (AlgConstr ix) 2 -> deserializeInteger bytes $ \i -> k (IntConstr i) 3 -> deserializeRational bytes $ \r -> k (FloatConstr r) -#if __GLASGOW_HASKELL__ >= 611 4 -> deserializeChar bytes $ \c -> k (CharConstr c) -#else - 4 -> deserializeString bytes $ \s -> k (StringConstr s) -#endif x -> error $ "deserializeConstr: unrecognised serialized constructor type " ++ show x ++ " in context " ++ show bytes @@ -158,13 +150,11 @@ deserializeInteger :: [Word8] -> (Integer -> [Word8] -> a) -> a deserializeInteger bytes k = deserializeString bytes (k . read) -#if __GLASGOW_HASKELL__ >= 611 serializeChar :: Char -> [Word8] -> [Word8] serializeChar = serializeString . show deserializeChar :: [Word8] -> (Char -> [Word8] -> a) -> a deserializeChar bytes k = deserializeString bytes (k . read) -#endif serializeString :: String -> [Word8] -> [Word8] |