getReexports :: Module -> [ExternDecl]
getReexports (mn, decls)= mapMaybe getExport decls
  where getExport e@(Export mn')
          | mn /= mn' = Just e
          | otherwise = Nothing
        getExport _ = Nothing
getReexports :: Module -> [ExternDecl]
getReexports (mn, decls)= mapMaybe getExport decls
  where getExport e@(Export mn')
          | mn /= mn' = Just e
          | otherwise = Nothing
        getExport _ = Nothing
getReexports (mn, decls)= mapMaybe getExport decls
  where getExport e@(Export mn')
          | mn /= mn' = Just e
          | otherwise = Nothing
        getExport _ = Nothing