diff options
| author | simonpj@microsoft.com <unknown> | 2010-10-15 13:18:57 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-10-15 13:18:57 +0000 |
| commit | 7d9e15f274a164e79902e12f0ecefbfddd86aff1 (patch) | |
| tree | 1180c1b9a398aacc917f9bfc1725b11d0716b33a | |
| parent | b3bc4006fef38476d2e66d99879d5adc71d5aa6a (diff) | |
| download | haskell-7d9e15f274a164e79902e12f0ecefbfddd86aff1.tar.gz | |
Make (Located a) an instance of Eq, Ord
Fulfils Trac #4369
| -rw-r--r-- | compiler/basicTypes/SrcLoc.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/basicTypes/SrcLoc.lhs b/compiler/basicTypes/SrcLoc.lhs index d3db8667f2..d912beb4a6 100644 --- a/compiler/basicTypes/SrcLoc.lhs +++ b/compiler/basicTypes/SrcLoc.lhs @@ -454,7 +454,7 @@ pprDefnLoc loc \begin{code} -- | We attach SrcSpans to lots of things, so let's have a datatype for it. data Located e = L SrcSpan e - deriving (Typeable, Data) + deriving (Eq, Ord, Typeable, Data) unLoc :: Located e -> e unLoc (L _ e) = e |