Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : new-demand
http://hackage.haskell.org/trac/ghc/changeset/7b6abb9a86453d3fcc16c30a42eb4a00b5d35ddc >--------------------------------------------------------------- commit 7b6abb9a86453d3fcc16c30a42eb4a00b5d35ddc Author: Ilya Sergey <[email protected]> Date: Mon Jul 9 15:36:21 2012 +0100 cleanup >--------------------------------------------------------------- compiler/iface/BinIface.hs | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs index 6b20a73..7bb25ac 100644 --- a/compiler/iface/BinIface.hs +++ b/compiler/iface/BinIface.hs @@ -1211,8 +1211,8 @@ instance Binary IfaceInfoItem where put_ bh (HsStrictness ab) = putByte bh 1 >> put_ bh ab put_ bh (HsUnfold lb ad) = putByte bh 2 >> put_ bh lb >> put_ bh ad put_ bh (HsInline ad) = putByte bh 3 >> put_ bh ad - put_ bh (ND_HsStrictness ab) = putByte bh 4 >> put_ bh ab - put_ bh HsNoCafRefs = putByte bh 5 + put_ bh HsNoCafRefs = putByte bh 4 + put_ bh (ND_HsStrictness ab) = putByte bh 5 >> put_ bh ab get bh = do h <- getByte bh case h of @@ -1222,8 +1222,8 @@ instance Binary IfaceInfoItem where ad <- get bh return (HsUnfold lb ad) 3 -> get bh >>= (return . HsInline) - 4 -> get bh >>= (return . ND_HsStrictness) - _ -> return HsNoCafRefs + 4 -> return HsNoCafRefs + _ -> get bh >>= (return . ND_HsStrictness) instance Binary IfaceUnfolding where put_ bh (IfCoreUnfold s e) = do _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
