%
-% (c) The GRASP/AQUA Project, Glasgow University, 1992-1994
+% (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
%
%************************************************************************
%* *
mkGeneratedSrcLoc, -- Code generated within the compiler
- incSrcLine
+ incSrcLine,
+
+ srcLocFile -- return the file name part.
) where
#include "HsVersions.h"
import Outputable
import FastString ( unpackFS )
-import GlaExts ( Int(..), Int#, (+#) )
+import GlaExts ( Int(..), (+#) )
\end{code}
%************************************************************************
isNoSrcLoc NoSrcLoc = True
isNoSrcLoc other = False
+srcLocFile :: SrcLoc -> FAST_STRING
+srcLocFile (SrcLoc fname _) = fname
+
incSrcLine :: SrcLoc -> SrcLoc
incSrcLine (SrcLoc s l) = SrcLoc s (l +# 1#)
incSrcLine loc = loc