diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-02-16 03:38:21 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-02-17 20:04:33 -0500 |
| commit | 1ffee940a011fc75f40514696a747dd1f3d4f342 (patch) | |
| tree | 967a656c0aa5aeadc584bb457e7e5cb7c9b4e007 /compiler/backpack | |
| parent | 1f1b9e356a873ec7da84cdac2a7850ecb2b32ea9 (diff) | |
| download | haskell-1ffee940a011fc75f40514696a747dd1f3d4f342.tar.gz | |
Fix warnings and fatal parsing errors
Diffstat (limited to 'compiler/backpack')
| -rw-r--r-- | compiler/backpack/DriverBkp.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/backpack/DriverBkp.hs b/compiler/backpack/DriverBkp.hs index e10d6d1de1..d7763f7b0f 100644 --- a/compiler/backpack/DriverBkp.hs +++ b/compiler/backpack/DriverBkp.hs @@ -82,8 +82,7 @@ doBackpack [src_filename] = do buf <- liftIO $ hGetStringBuffer src_filename let loc = mkRealSrcLoc (mkFastString src_filename) 1 1 -- TODO: not great case unP parseBackpack (mkPState dflags buf loc) of - PFailed _ span err -> do - liftIO $ throwOneError (mkPlainErrMsg dflags span err) + PFailed pst -> throwErrors (getErrorMessages pst dflags) POk _ pkgname_bkp -> do -- OK, so we have an LHsUnit PackageName, but we want an -- LHsUnit HsComponentId. So let's rename it. |