diff options
Diffstat (limited to 'compiler/GHC/Types/Fixity.hs')
| -rw-r--r-- | compiler/GHC/Types/Fixity.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/compiler/GHC/Types/Fixity.hs b/compiler/GHC/Types/Fixity.hs index fb8807ab9d..1eca7592c5 100644 --- a/compiler/GHC/Types/Fixity.hs +++ b/compiler/GHC/Types/Fixity.hs @@ -57,18 +57,18 @@ instance Outputable FixityDirection where ppr InfixN = text "infix" instance Binary FixityDirection where - put_ bh InfixL = do + put_ bh InfixL = putByte bh 0 - put_ bh InfixR = do + put_ bh InfixR = putByte bh 1 - put_ bh InfixN = do + put_ bh InfixN = putByte bh 2 get bh = do h <- getByte bh case h of - 0 -> do return InfixL - 1 -> do return InfixR - _ -> do return InfixN + 0 -> return InfixL + 1 -> return InfixR + _ -> return InfixN ------------------------ maxPrecedence, minPrecedence :: Int |