[project @ 2004-05-06 12:24:19 by simonpj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / SrcLoc.lhs

diff --git a/ghc/compiler/basicTypes/SrcLoc.lhs b/ghc/compiler/basicTypes/SrcLoc.lhs
index 8b25be9..8d02e03 100644 (file)
--- a/ghc/compiler/basicTypes/SrcLoc.lhs
+++ b/ghc/compiler/basicTypes/SrcLoc.lhs
@@ -65,20 +65,6 @@ data SrcLoc
   | ImportedLoc        String          -- Module name
 
   | UnhelpfulLoc FastString    -- Just a general indication
-
-{-
-data SrcSpan
-  = WiredInSpan
-
-       -- A precise source file span
-  | SrcSpan    FastString      -- file name
-               FastInt         -- beginning line
-               FastInt         -- beginning column
-               FastInt         -- end line
-               FastInt         -- end column           
-
-  | UnhelpfulSrcSpan FastString        -- Just a general indication
--}
 \end{code}
 
 Note that an entity might be imported via more than one route, and