diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-07-17 22:41:00 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-07-17 22:41:00 +0000 |
| commit | 5d92b931e7278d214e585adce03014bfbd54c16f (patch) | |
| tree | 3b689582caa7f5c9d3d0fc641d1e3bebbce95f4a /compiler/utils/Binary.hs | |
| parent | 2f223e8f4a4e2fb22a8bb0638cd48256e9f2f0e2 (diff) | |
| download | haskell-5d92b931e7278d214e585adce03014bfbd54c16f.tar.gz | |
Remove some code that has always been commented out
Diffstat (limited to 'compiler/utils/Binary.hs')
| -rw-r--r-- | compiler/utils/Binary.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index 3577f9173d..a74d42043c 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -388,17 +388,14 @@ instance Binary Int64 where instance Binary () where put_ _ () = return () get _ = return () --- getF bh p = case getBitsF bh 0 p of (_,b) -> ((),b) instance Binary Bool where put_ bh b = putByte bh (fromIntegral (fromEnum b)) get bh = do x <- getWord8 bh; return $! (toEnum (fromIntegral x)) --- getF bh p = case getBitsF bh 1 p of (x,b) -> (toEnum x,b) instance Binary Char where put_ bh c = put_ bh (fromIntegral (ord c) :: Word32) get bh = do x <- get bh; return $! (chr (fromIntegral (x :: Word32))) --- getF bh p = case getBitsF bh 8 p of (x,b) -> (toEnum x,b) instance Binary Int where #if SIZEOF_HSINT == 4 @@ -414,7 +411,6 @@ instance Binary Int where #else #error "unsupported sizeof(HsInt)" #endif --- getF bh = getBitsF bh 32 instance Binary a => Binary [a] where put_ bh l = do |