[commit: ghc] wip/orf-reboot: Remove unnecessary Binary instance, since we don't serialize FieldLbl any more (87b361c)

git at git.haskell.org git at git.haskell.org
Mon Jun 29 08:30:26 UTC 2015


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/orf-reboot
Link       : http://ghc.haskell.org/trac/ghc/changeset/87b361c8d4e5a29f587795d54ee8013b15738ebe/ghc

>---------------------------------------------------------------

commit 87b361c8d4e5a29f587795d54ee8013b15738ebe
Author: Adam Gundry <adam at well-typed.com>
Date:   Sun Jun 21 16:02:54 2015 +0100

    Remove unnecessary Binary instance, since we don't serialize FieldLbl any more


>---------------------------------------------------------------

87b361c8d4e5a29f587795d54ee8013b15738ebe
 compiler/basicTypes/FieldLabel.hs | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/compiler/basicTypes/FieldLabel.hs b/compiler/basicTypes/FieldLabel.hs
index 9af7f88..b22922b 100644
--- a/compiler/basicTypes/FieldLabel.hs
+++ b/compiler/basicTypes/FieldLabel.hs
@@ -51,7 +51,6 @@ module FieldLabel ( FieldLabelString
 import OccName
 import Name
 
-import Binary
 import FastString
 import Outputable
 
@@ -81,18 +80,6 @@ data FieldLbl a = FieldLabel {
 instance Outputable a => Outputable (FieldLbl a) where
     ppr fl = ppr (flLabel fl) <> braces (ppr (flSelector fl))
 
-instance Binary a => Binary (FieldLbl a) where
-    put_ bh (FieldLabel aa ab ac) = do
-        put_ bh aa
-        put_ bh ab
-        put_ bh ac
-
-    get bh = do
-        aa <- get bh
-        ab <- get bh
-        ac <- get bh
-        return (FieldLabel aa ab ac)
-
 
 -- | Record selector OccNames are built from the underlying field name and
 -- the name of the type constructor, to support overloaded record fields.



More information about the ghc-commits mailing list