diff options
Diffstat (limited to 'compiler/GHC/Tc/Types/EvTerm.hs')
| -rw-r--r-- | compiler/GHC/Tc/Types/EvTerm.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/GHC/Tc/Types/EvTerm.hs b/compiler/GHC/Tc/Types/EvTerm.hs index ad380ec0a2..e55a930774 100644 --- a/compiler/GHC/Tc/Types/EvTerm.hs +++ b/compiler/GHC/Tc/Types/EvTerm.hs @@ -21,7 +21,6 @@ import GHC.Core.Make import GHC.Core.Utils import GHC.Types.SrcLoc -import GHC.Types.Name import GHC.Types.TyThing -- Used with Opt_DeferTypeErrors @@ -71,5 +70,5 @@ evCallStack cs = do return (pushCS nameExpr locExpr (Cast tm ip_co)) case cs of - EvCsPushCall name loc tm -> mkPush (occNameFS $ getOccName name) loc tm - EvCsEmpty -> return emptyCS + EvCsPushCall fs loc tm -> mkPush fs loc tm + EvCsEmpty -> return emptyCS |