diff options
| author | simonpj <unknown> | 1996-12-19 09:14:20 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 1996-12-19 09:14:20 +0000 |
| commit | 7a3bd641457666e10d0a47be9f22762e03defbf0 (patch) | |
| tree | f08abd7c4d863953337d582a582722a286c49f63 /ghc/compiler/parser/UgenUtil.lhs | |
| parent | f65044d135ef61bee82a6c9767235f6780bdf00e (diff) | |
| download | haskell-7a3bd641457666e10d0a47be9f22762e03defbf0.tar.gz | |
[project @ 1996-12-19 09:10:02 by simonpj]
SLPJ new renamer and lots more
Diffstat (limited to 'ghc/compiler/parser/UgenUtil.lhs')
| -rw-r--r-- | ghc/compiler/parser/UgenUtil.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/compiler/parser/UgenUtil.lhs b/ghc/compiler/parser/UgenUtil.lhs index e112d0ccf9..4b4523f211 100644 --- a/ghc/compiler/parser/UgenUtil.lhs +++ b/ghc/compiler/parser/UgenUtil.lhs @@ -26,8 +26,8 @@ import PreludeGlaST # define PACK_BYTES _packCBytes #endif -import Name ( RdrName(..) ) -import SrcLoc ( mkSrcLoc2, mkUnknownSrcLoc, SrcLoc ) +import RdrHsSyn ( RdrName(..) ) +import SrcLoc ( mkSrcLoc, noSrcLoc, SrcLoc ) \end{code} \begin{code} @@ -47,7 +47,7 @@ thenUgn x y stuff initUgn :: UgnM a -> IO a initUgn action = let - do_it = action (SLIT(""),SLIT(""),mkUnknownSrcLoc) + do_it = action (SLIT(""),SLIT(""),noSrcLoc) in #if __GLASGOW_HASKELL__ >= 200 primIOToIO do_it @@ -105,7 +105,7 @@ mkSrcLocUgn :: U_long -> (SrcLoc -> UgnM a) -> UgnM a mkSrcLocUgn ln action (file,mod,_) = action loc (file,mod,loc) where - loc = mkSrcLoc2 file ln + loc = mkSrcLoc file ln getSrcLocUgn :: UgnM SrcLoc getSrcLocUgn stuff@(file,mod,loc) = returnUgn loc stuff |