Use a stable ordering of the export list

testsuite/tests/ghc-regress/annotations/should_run/annrun01.hs

@@ -12,6 +12,8 @@ import Config
 import Annrun01_Help
 
 import qualified Language.Haskell.TH as TH
+import Data.List
+import Data.Function
 
 main = defaultErrorHandler defaultDynFlags $ runGhc (Just cTop) $ do
     liftIO $ putStrLn "Initializing Package Database"
@@ -34,7 +36,7 @@ main = defaultErrorHandler defaultDynFlags $ runGhc (Just cTop) $ do
     liftIO $ putStrLn "Showing Details For Module"
     showTargetAnns (ModuleTarget mod)
     liftIO $ putStrLn "Showing Details For Exports"
-    mapM (showTargetAnns . NamedTarget) $ modInfoExports mod_info
+    mapM (showTargetAnns . NamedTarget) $ sortBy (compare `on` getOccName) $ modInfoExports mod_info
 
 showTargetAnns :: CoreAnnTarget -> Ghc ()
 showTargetAnns target = do
@@ -42,4 +44,4 @@ showTargetAnns target = do
     (mb_bool_anns :: [Maybe Bool]) <- findGlobalAnns deserializeWithData target
     (string_anns  :: [String])     <- findGlobalAnns deserializeWithData target
     (name_anns    :: [TH.Name])    <- findGlobalAnns deserializeWithData target
-    liftIO $ print (int_anns, mb_bool_anns, string_anns, name_anns)
\ No newline at end of file
+    liftIO $ print (int_anns, mb_bool_anns, string_anns, name_anns)