diff options
| author | simonpj <unknown> | 2000-10-13 16:00:45 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2000-10-13 16:00:45 +0000 |
| commit | 6f619e517abaebb868bff16ba4d2aba086d5108a (patch) | |
| tree | ce1d2ee94a31a3f744a7bfcbd5b59a18e03725be /ghc/compiler/rename/RnMonad.lhs | |
| parent | f1080bc82f87317ffa59cffef08b322d7354bb29 (diff) | |
| download | haskell-6f619e517abaebb868bff16ba4d2aba086d5108a.tar.gz | |
[project @ 2000-10-13 16:00:45 by simonpj]
Tidy up errors and warnings
Diffstat (limited to 'ghc/compiler/rename/RnMonad.lhs')
| -rw-r--r-- | ghc/compiler/rename/RnMonad.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs index da681040d6..d322c20022 100644 --- a/ghc/compiler/rename/RnMonad.lhs +++ b/ghc/compiler/rename/RnMonad.lhs @@ -297,7 +297,7 @@ initRn :: DynFlags -> Finder -> GlobalSymbolTable -> PersistentRenamerState -> Module -> SrcLoc -> RnMG t - -> IO (t, Bag WarnMsg, Bag ErrMsg) + -> IO (t, (Bag WarnMsg, Bag ErrMsg)) initRn dflags finder gst prs mod loc do_rn = do uniqs <- mkSplitUniqSupply 'r' @@ -322,7 +322,7 @@ initRn dflags finder gst prs mod loc do_rn -- grab errors and return (warns, errs) <- readIORef errs_var - return (res, errs, warns) + return (res, (warns, errs)) initIfaces :: PersistentRenamerState -> Ifaces |