From c2cec4ebe7b5af51a2b057f338ecb7a320e331b8 Mon Sep 17 00:00:00 2001 From: davve Date: Mon, 4 Sep 2006 20:53:01 +0000 Subject: Rename a function --- src/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index f166e99c..dad47fb5 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -482,7 +482,7 @@ pass1 modules flags = worker modules (Map.empty) flags worker ((mod, checked_mod, filename):rest_modules) moduleMap flags = do let (parsed_source, renamed_source, _, moduleInfo) = checked_mod - (mb_doc_opts, _, _) = get_module_stuff parsed_source + (mb_doc_opts, _, _) = getModuleStuff parsed_source opts <- mkDocOpts mb_doc_opts @@ -551,7 +551,7 @@ pass1 modules flags = worker modules (Map.empty) flags worker rest_modules moduleMap' flags where - get_module_stuff source = + getModuleStuff source = let HsModule _ _ _ _ _ mb_opts info mb_doc = unLoc source in (mb_opts, info, mb_doc) -- cgit v1.2.3