diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-11-07 11:50:36 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-11-07 13:13:16 -0500 |
| commit | 93b4820607aed1ab633e836084c5e39f5e631f87 (patch) | |
| tree | cd1b51c1ff088e9ff25747875bd12e963ae1ec40 /ghc | |
| parent | c1bc923b08860101d0b74795ff42f6022c7fec0b (diff) | |
| download | haskell-93b4820607aed1ab633e836084c5e39f5e631f87.tar.gz | |
Revert "WIP on combining Step 1 and 3 of Trees That Grow"
This reverts commit 0ff152c9e633accca48815e26e59d1af1fe44ceb.
Sadly this broke when bootstrapping with 8.0.2 due to #14396.
Reverts haddock submodule.
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/GHCi/UI/Info.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/GHCi/UI/Info.hs b/ghc/GHCi/UI/Info.hs index 4ecc078909..fd8749a3e1 100644 --- a/ghc/GHCi/UI/Info.hs +++ b/ghc/GHCi/UI/Info.hs @@ -332,8 +332,8 @@ processAllTypeCheckedModule tcm = do getTypeLPat (L spn pat) = pure (Just (getMaybeId pat,spn,hsPatType pat)) where - getMaybeId (VarPat _ (L _ vid)) = Just vid - getMaybeId _ = Nothing + getMaybeId (VarPat (L _ vid)) = Just vid + getMaybeId _ = Nothing -- | Get ALL source spans in the source. listifyAllSpans :: Typeable a => TypecheckedSource -> [Located a] |