X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FSrcLoc.lhs;h=a748b478225b3560b06eab0e1e6c3c8526c0b028;hb=fc9bbbab3fe56cf0ff5723abbdb0f496d257f34e;hp=0789693287deac6c9f6f8e6259adbbe484e86e7c;hpb=54280054ee1848698d4462ff8f85f3b46bf0a26d;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/SrcLoc.lhs b/compiler/basicTypes/SrcLoc.lhs
index 0789693..a748b47 100644
--- a/compiler/basicTypes/SrcLoc.lhs
+++ b/compiler/basicTypes/SrcLoc.lhs
@@ -58,6 +58,7 @@ module SrcLoc (
 	
 	-- ** Constructing Located
 	noLoc,
+    mkGeneralLocated,
 	
 	-- ** Deconstructing Located
 	getLoc, unLoc, 
@@ -453,6 +454,9 @@ getLoc (L l _) = l
 noLoc :: e -> Located e
 noLoc e = L noSrcSpan e
 
+mkGeneralLocated :: String -> e -> Located e
+mkGeneralLocated s e = L (mkGeneralSrcSpan (fsLit s)) e
+
 combineLocs :: Located a -> Located b -> SrcSpan
 combineLocs a b = combineSrcSpans (getLoc a) (getLoc b)