From 609227fd61e9c0cca2a252ccd250544403357c97 Mon Sep 17 00:00:00 2001 From: David Waern Date: Thu, 18 Oct 2007 22:34:36 +0000 Subject: Name changes --- src/Haddock/Options.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/Haddock/Options.hs') 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) -- cgit v1.2.3