diff options
| author | romes <rodrigo.m.mesquita@gmail.com> | 2022-05-22 21:05:32 +0200 |
|---|---|---|
| committer | romes <rodrigo.m.mesquita@gmail.com> | 2022-05-26 16:27:57 +0000 |
| commit | 44bb71115bcf1edaee82fc75cbe07a3e242e9476 (patch) | |
| tree | c850a97d6279f5a94b9ffab97bca24df9df5e142 /ghc | |
| parent | d0e4355af8c936a3ba831ecf6afa62b06475069f (diff) | |
| download | haskell-44bb71115bcf1edaee82fc75cbe07a3e242e9476.tar.gz | |
TTG: Move MatchGroup Origin field and MatchGroupTc to GHC.Hswip/romes/ttg-matchgroup-origin
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/GHCi/UI/Info.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/GHCi/UI/Info.hs b/ghc/GHCi/UI/Info.hs index 7fb13316e9..39cf7d8860 100644 --- a/ghc/GHCi/UI/Info.hs +++ b/ghc/GHCi/UI/Info.hs @@ -330,7 +330,7 @@ processAllTypeCheckedModule tcm -- | Extract 'Id', 'SrcSpan', and 'Type' for 'LHsBind's getTypeLHsBind :: LHsBind GhcTc -> Maybe (Maybe Id,SrcSpan,Type) - getTypeLHsBind (L _spn FunBind{fun_id = pid,fun_matches = MG _ _ _}) + getTypeLHsBind (L _spn FunBind{fun_id = pid,fun_matches = MG _ _}) = Just (Just (unLoc pid), getLocA pid,varType (unLoc pid)) getTypeLHsBind _ = Nothing |