[commit: ghc] wip/merge: add missing instances for Loc and a few missing Eq instances (1ee0034)

git at git.haskell.org git at git.haskell.org
Wed Nov 19 04:28:01 UTC 2014


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

On branch  : wip/merge
Link       : http://ghc.haskell.org/trac/ghc/changeset/1ee0034f0cac4958412da380018d7814865fac22/ghc

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

commit 1ee0034f0cac4958412da380018d7814865fac22
Author: Luite Stegeman <stegeman at gmail.com>
Date:   Tue Nov 18 22:21:44 2014 -0600

    add missing instances for Loc and a few missing Eq instances
    
    Summary: This adds a few missing instances that can be automatically derived
    
    Reviewers: hvr, goldfire, austin
    
    Reviewed By: goldfire, austin
    
    Subscribers: thomie, carter
    
    Differential Revision: https://phabricator.haskell.org/D495


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

1ee0034f0cac4958412da380018d7814865fac22
 libraries/template-haskell/Language/Haskell/TH/Syntax.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/libraries/template-haskell/Language/Haskell/TH/Syntax.hs b/libraries/template-haskell/Language/Haskell/TH/Syntax.hs
index 6d4e5db..284058e 100644
--- a/libraries/template-haskell/Language/Haskell/TH/Syntax.hs
+++ b/libraries/template-haskell/Language/Haskell/TH/Syntax.hs
@@ -877,6 +877,7 @@ data Loc
         , loc_module   :: String
         , loc_start    :: CharPos
         , loc_end      :: CharPos }
+   deriving( Show, Eq, Data, Typeable, Generic )
 
 type CharPos = (Int, Int)       -- ^ Line and character position
 
@@ -951,13 +952,13 @@ data Info
   | TyVarI      -- Scoped type variable
         Name
         Type    -- What it is bound to
-  deriving( Show, Data, Typeable, Generic )
+  deriving( Show, Eq, Data, Typeable, Generic )
 
 -- | Obtained from 'reifyModule' in the 'Q' Monad.
 data ModuleInfo =
   -- | Contains the import list of the module.
   ModuleInfo [Module]
-  deriving( Show, Data, Typeable, Generic )
+  deriving( Show, Eq, Data, Typeable, Generic )
 
 {- |
 In 'ClassOpI' and 'DataConI', name of the parent class or type



More information about the ghc-commits mailing list