X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcSplice.lhs;h=af4d3205644e5e3ed9b7281648adb37fc5503f7e;hb=9ffadf219cbc4f8ec57264786df936a3cee88aec;hp=9a03acb0e3cd1588b963ac055637116b2c6ed1f9;hpb=04c3bfc687db82659a7fe5a8b0fa4244c52560b7;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs
index 9a03acb..af4d320 100644
--- a/compiler/typecheck/TcSplice.lhs
+++ b/compiler/typecheck/TcSplice.lhs
@@ -872,7 +872,7 @@ reifyThing (AGlobal (AnId id))
   = do	{ ty <- reifyType (idType id)
 	; fix <- reifyFixity (idName id)
 	; let v = reifyName id
-	; case globalIdDetails id of
+	; case idDetails id of
 	    ClassOpId cls    -> return (TH.ClassOpI v ty (reifyName cls) fix)
 	    _                -> return (TH.VarI     v ty Nothing fix)
     }