findImportsHiddenLists
  = applyTU (full_tdTU (constTU [] `adhocTU` inImport))
    where
      inImport (HsImportDecl loc modName qual _ (Just (True, h))::HsImportDeclP) = return ((map (\(Var x) -> (pNTtoName x))) h)
      inImport _ = return []
findImportsHiddenLists
  = applyTU (full_tdTU (constTU [] `adhocTU` inImport))
    where
      inImport (HsImportDecl loc modName qual _ (Just (True, h))::HsImportDeclP) = return ((map (\(Var x) -> (pNTtoName x))) h)
      inImport _ = return []
findImportsHiddenLists
  = applyTU (full_tdTU (constTU [] `adhocTU` inImport))
    where
      inImport (HsImportDecl loc modName qual _ (Just (True, h))::HsImportDeclP) = return ((map (\(Var x) -> (pNTtoName x))) h)
      inImport _ = return []