diff options
| author | Dave Laing <dave.laing.80@gmail.com> | 2017-05-15 16:09:11 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-05-15 17:50:56 -0400 |
| commit | 49012ebc9ed44a0b1f8de3781e15c8115d3074f8 (patch) | |
| tree | 2810e77007cc68dcc21789946cd347fd0e13d8d8 /compiler/backpack | |
| parent | bc066558e83bfa741a58ec1797ac8fccc507266e (diff) | |
| download | haskell-49012ebc9ed44a0b1f8de3781e15c8115d3074f8.tar.gz | |
Print warnings on parser failures (#12610).
Test Plan: validate
Reviewers: austin, bgamari, simonmar, mpickering
Reviewed By: mpickering
Subscribers: mpickering, rwbarton, thomie
GHC Trac Issues: #12610
Differential Revision: https://phabricator.haskell.org/D3584
Diffstat (limited to 'compiler/backpack')
| -rw-r--r-- | compiler/backpack/DriverBkp.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/backpack/DriverBkp.hs b/compiler/backpack/DriverBkp.hs index db7b5f63bc..86e84d13f9 100644 --- a/compiler/backpack/DriverBkp.hs +++ b/compiler/backpack/DriverBkp.hs @@ -80,7 +80,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 + PFailed _ span err -> do liftIO $ throwOneError (mkPlainErrMsg dflags span err) POk _ pkgname_bkp -> do -- OK, so we have an LHsUnit PackageName, but we want an |