diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-09-09 10:54:32 +0100 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-09-09 10:54:32 +0100 |
commit | ff94f97a89b3a206552de47545152139666d92e9 (patch) | |
tree | a619984d55c9ad1fcfa967c01c3be30f5da2f694 /compiler/iface/BinIface.hs | |
parent | c4c9810862fde76641d3ad60a0d3ee3da526c209 (diff) | |
download | haskell-ff94f97a89b3a206552de47545152139666d92e9.tar.gz |
Comments, and rename FactTuple to ConstraintTuple
Diffstat (limited to 'compiler/iface/BinIface.hs')
-rw-r--r-- | 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 3df9f1a338..5c0391638e 100644 --- a/compiler/iface/BinIface.hs +++ b/compiler/iface/BinIface.hs @@ -652,15 +652,15 @@ instance Binary HsBang where _ -> do return HsUnpackFailed instance Binary TupleSort where - put_ bh BoxedTuple = putByte bh 0 - put_ bh UnboxedTuple = putByte bh 1 - put_ bh FactTuple = putByte bh 2 + put_ bh BoxedTuple = putByte bh 0 + put_ bh UnboxedTuple = putByte bh 1 + put_ bh ConstraintTuple = putByte bh 2 get bh = do h <- getByte bh case h of 0 -> do return BoxedTuple 1 -> do return UnboxedTuple - _ -> do return FactTuple + _ -> do return ConstraintTuple instance Binary RecFlag where put_ bh Recursive = do |