where printTypeAndContentOfNames session names = do
let namesSorted = sortBy compareNames names
tythings <- catMaybes `liftM`
where printTypeAndContentOfNames session names = do
let namesSorted = sortBy compareNames names
tythings <- catMaybes `liftM`
docs_ty <- mapM showTyThing tythings
terms <- mapM (io . GHC.obtainTermB session 10 False)
[ id | (AnId id, Just _) <- zip tythings docs_ty]
docs_ty <- mapM showTyThing tythings
terms <- mapM (io . GHC.obtainTermB session 10 False)
[ id | (AnId id, Just _) <- zip tythings docs_ty]