diff options
| author | sewardj <unknown> | 2000-10-19 15:00:17 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-10-19 15:00:17 +0000 |
| commit | 9bedea20f62a1da832c69833c39dd1d15e6ee9a3 (patch) | |
| tree | 336c4aca9572e212854ad6f09b87482d0b0a9c74 /ghc/compiler/rename/RnMonad.lhs | |
| parent | 9aa6d18bd696e8861fb8c3e065e49a989d2d67ac (diff) | |
| download | haskell-9bedea20f62a1da832c69833c39dd1d15e6ee9a3.tar.gz | |
[project @ 2000-10-19 15:00:16 by sewardj]
Stagger dazedly towards getting the renamer to compile.
Diffstat (limited to 'ghc/compiler/rename/RnMonad.lhs')
| -rw-r--r-- | ghc/compiler/rename/RnMonad.lhs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs index bdac32a0b0..ddff54f80d 100644 --- a/ghc/compiler/rename/RnMonad.lhs +++ b/ghc/compiler/rename/RnMonad.lhs @@ -522,6 +522,10 @@ checkErrsRn (RnDown {rn_errs = errs_var}) l_down doptRn :: DynFlag -> RnM d Bool doptRn dflag (RnDown { rn_dflags = dflags}) l_down = return (dopt dflag dflags) + +getDOptsRn :: RnM d DynFlags +getDOptsRn (RnDown { rn_dflags = dflags}) l_down + = return dflags \end{code} |