[commit: ghc] master: add missing instances for Loc and a few missing Eq instances (b047733)
git at git.haskell.org
git at git.haskell.org
Wed Nov 19 23:03:35 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/b047733881cfd4b1d83dd856697c797701ee282a/ghc
>---------------------------------------------------------------
commit b047733881cfd4b1d83dd856697c797701ee282a
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
>---------------------------------------------------------------
b047733881cfd4b1d83dd856697c797701ee282a
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 9813095..8c95045 100644
--- a/libraries/template-haskell/Language/Haskell/TH/Syntax.hs
+++ b/libraries/template-haskell/Language/Haskell/TH/Syntax.hs
@@ -878,6 +878,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
@@ -952,13 +953,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