[project @ 2005-03-31 15:16:53 by simonmar]

[ghc-hetmet.git] / ghc / compiler / main / HscTypes.lhs

diff --git a/ghc/compiler/main/HscTypes.lhs b/ghc/compiler/main/HscTypes.lhs
index c170f52..114f6c0 100644 (file)
--- a/ghc/compiler/main/HscTypes.lhs
+++ b/ghc/compiler/main/HscTypes.lhs
@@ -191,9 +191,9 @@ hscEPS hsc_env = readIORef (hsc_EPS hsc_env)
 data Target = Target TargetId (Maybe (StringBuffer,ClockTime))
 
 data TargetId
-  = TargetModule Module           -- | A module name: search for the file
-  | TargetFile   FilePath  -- | A filename: parse it to find the module name.
-
+  = TargetModule Module           -- ^ A module name: search for the file
+  | TargetFile   FilePath  -- ^ A filename: parse it to find the module name.
+  deriving Eq
 
 pprTarget :: Target -> SDoc
 pprTarget (Target id _) = pprTargetId id