Commit 0c2b9c0d authored by Simon Marlow's avatar Simon Marlow
Browse files

Use a stable ordering of the export list

parent e3aed8ac
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment