diff --git a/Language/Haskell/GhcMod/Gap.hs b/Language/Haskell/GhcMod/Gap.hs
index 00d8bc5..79c63de 100644
--- a/Language/Haskell/GhcMod/Gap.hs
+++ b/Language/Haskell/GhcMod/Gap.hs
@@ -370,7 +370,7 @@ pprInfo m pefas (thing, fixity, insts)
                                         (char '\t' <> ptext (sLit "--") <+> loc)
                          where loc = ptext (sLit "Defined") <+> pprNameDefnLoc' (getName thing')
 #else
-    pprTyThingInContextLoc' pefas thing' = hang (pprTyThingInContext pefas thing') 2
+    pprTyThingInContextLoc' pefas' thing' = hang (pprTyThingInContext pefas' thing') 2
                                     (char '\t' <> ptext (sLit "--") <+> loc)
                                where loc = ptext (sLit "Defined") <+> pprNameDefnLoc' (getName thing')
 #endif