From: simonpj@microsoft.com <unknown>
Date: Fri, 15 Oct 2010 13:18:57 +0000 (+0000)
Subject: Make (Located a) an instance of Eq, Ord
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7d9e15f274a164e79902e12f0ecefbfddd86aff1;p=ghc-hetmet.git

Make (Located a) an instance of Eq, Ord

Fulfils Trac #4369
---

diff --git a/compiler/basicTypes/SrcLoc.lhs b/compiler/basicTypes/SrcLoc.lhs
index d3db866..d912beb 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