summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsimonpj@microsoft.com <unknown>2010-10-15 13:18:57 +0000
committersimonpj@microsoft.com <unknown>2010-10-15 13:18:57 +0000
commit7d9e15f274a164e79902e12f0ecefbfddd86aff1 (patch)
tree1180c1b9a398aacc917f9bfc1725b11d0716b33a
parentb3bc4006fef38476d2e66d99879d5adc71d5aa6a (diff)
downloadhaskell-7d9e15f274a164e79902e12f0ecefbfddd86aff1.tar.gz
Make (Located a) an instance of Eq, Ord
Fulfils Trac #4369
-rw-r--r--compiler/basicTypes/SrcLoc.lhs2
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