diff options
| author | David Waern <davve@dtek.chalmers.se> | 2007-10-18 22:34:36 +0000 |
|---|---|---|
| committer | David Waern <davve@dtek.chalmers.se> | 2007-10-18 22:34:36 +0000 |
| commit | 609227fd61e9c0cca2a252ccd250544403357c97 (patch) | |
| tree | 1043fdf35627bcb79f7c4a880db6681d0890e6c8 /src/Haddock/Options.hs | |
| parent | 159ee12636ddade431283a4869a263d8e9ac0768 (diff) | |
Name changes
Diffstat (limited to 'src/Haddock/Options.hs')
| -rw-r--r-- | src/Haddock/Options.hs | 12 |
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) |