diff options
Diffstat (limited to 'ghc/GHCi/UI/Info.hs')
| -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 b07a376482..8302c2ba4f 100644 --- a/ghc/GHCi/UI/Info.hs +++ b/ghc/GHCi/UI/Info.hs @@ -340,8 +340,8 @@ processAllTypeCheckedModule tcm = do mid | HsVar _ (L _ i) <- unwrapVar (unLoc e) = Just i | otherwise = Nothing - unwrapVar (HsWrap _ _ var) = var - unwrapVar e' = e' + unwrapVar (XExpr (HsWrap _ var)) = var + unwrapVar e' = e' -- | Extract 'Id', 'SrcSpan', and 'Type' for 'LPats's getTypeLPat :: LPat GhcTc -> m (Maybe (Maybe Id,SrcSpan,Type)) |