-rnTopBindsLHS fix_env binds =
- (uncurry $ rnValBindsLHSFromDoc (topRecNameMaker fix_env)) (bindersAndDoc binds) binds
+rnTopBindsLHS fix_env binds
+ = do { let (boundNames,doc) = bindersAndDoc binds
+ ; mod <- getModule
+ ; rnValBindsLHSFromDoc (topRecNameMaker mod fix_env) boundNames doc binds }