diff options
Diffstat (limited to 'ghc/compiler/hsSyn/HsDecls.lhs')
| -rw-r--r-- | ghc/compiler/hsSyn/HsDecls.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs index 7aa5f9f62a..aac4f40abb 100644 --- a/ghc/compiler/hsSyn/HsDecls.lhs +++ b/ghc/compiler/hsSyn/HsDecls.lhs @@ -260,7 +260,7 @@ instance (NamedThing name, Outputable name, Outputable pat, Eq tyvar, Outputable tyvar, Eq uvar, Outputable uvar) => Outputable (InstDecl tyvar uvar name pat) where - ppr sty (InstDecl clas ty binds local modname uprags pragmas src_loc) + ppr sty (InstDecl clas ty binds from_here modname uprags pragmas src_loc) = let (context, inst_ty) = case ty of |