X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FSrcLoc.lhs;fp=ghc%2Fcompiler%2FbasicTypes%2FSrcLoc.lhs;h=8d02e03ace127a85dc02f6b3c0c77e2bc0b404d1;hb=c556f115ca05c6aec7327d3a5ee920dea3176f97;hp=8b25be9c4c875571c103527c671bade228b96235;hpb=026f6c3854a61b51f1efdf5e43f102440871d254;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/SrcLoc.lhs b/ghc/compiler/basicTypes/SrcLoc.lhs
index 8b25be9..8d02e03 100644
--- 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