aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Options.hs
diff options
context:
space:
mode:
authorDavid Waern <davve@dtek.chalmers.se>2007-10-18 22:34:36 +0000
committerDavid Waern <davve@dtek.chalmers.se>2007-10-18 22:34:36 +0000
commit609227fd61e9c0cca2a252ccd250544403357c97 (patch)
tree1043fdf35627bcb79f7c4a880db6681d0890e6c8 /src/Haddock/Options.hs
parent159ee12636ddade431283a4869a263d8e9ac0768 (diff)
Name changes
Diffstat (limited to 'src/Haddock/Options.hs')
-rw-r--r--src/Haddock/Options.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Haddock/Options.hs b/src/Haddock/Options.hs
index 152b30d4..bfc8ae27 100644
--- a/src/Haddock/Options.hs
+++ b/src/Haddock/Options.hs
@@ -9,8 +9,8 @@ module Haddock.Options (
parseHaddockOpts,
Flag(..),
getUsage,
- getGhcFlags,
- getIfacePairs
+ ghcFlags,
+ ifacePairs
) where
@@ -37,12 +37,12 @@ parseHaddockOpts words =
throwE (concat errors ++ usage)
-getGhcFlags :: [Flag] -> [String]
-getGhcFlags flags = [ option | Flag_OptGhc option <- flags ]
+ghcFlags :: [Flag] -> [String]
+ghcFlags flags = [ option | Flag_OptGhc option <- flags ]
-getIfacePairs :: [Flag] -> [(FilePath, FilePath)]
-getIfacePairs flags = [ parseIfaceOption s | Flag_ReadInterface s <- flags ]
+ifacePairs :: [Flag] -> [(FilePath, FilePath)]
+ifacePairs flags = [ parseIfaceOption s | Flag_ReadInterface s <- flags ]
parseIfaceOption :: String -> (FilePath, FilePath)