Commit 41e0d3ba authored by Thomas Schilling's avatar Thomas Schilling
Browse files

Haddockify DynFlags (partial).

parent a197839e
----------------------------------------------------------------------------- -- |
--
-- Dynamic flags -- Dynamic flags
-- --
-- --
-- (c) The University of Glasgow 2005 -- (c) The University of Glasgow 2005
-- --
-----------------------------------------------------------------------------
-- | Most flags are dynamic flags, which means they can change from -- Most flags are dynamic flags, which means they can change from
-- compilation to compilation using @OPTIONS_GHC@ pragmas, and in a -- compilation to compilation using @OPTIONS_GHC@ pragmas, and in a
-- multi-session GHC each session can be using different dynamic -- multi-session GHC each session can be using different dynamic
-- flags. Dynamic flags can also be set at the prompt in GHCi. -- flags. Dynamic flags can also be set at the prompt in GHCi.
...@@ -331,7 +329,7 @@ data DynFlags = DynFlags { ...@@ -331,7 +329,7 @@ data DynFlags = DynFlags {
dphBackend :: DPHBackend, dphBackend :: DPHBackend,
thisPackage :: PackageId, thisPackage :: PackageId, -- ^ name of package currently being compiled
-- ways -- ways
wayNames :: [WayName], -- ^ Way flags from the command line wayNames :: [WayName], -- ^ Way flags from the command line
...@@ -1691,8 +1689,15 @@ glasgowExtsFlags = [ ...@@ -1691,8 +1689,15 @@ glasgowExtsFlags = [
-- ----------------------------------------------------------------------------- -- -----------------------------------------------------------------------------
-- Parsing the dynamic flags. -- Parsing the dynamic flags.
parseDynamicFlags :: DynFlags -> [Located String] -- | Parse dynamic flags from a list of command line argument. Returns the
-> IO (DynFlags, [Located String], [Located String]) -- the parsed 'DynFlags', the left-over arguments, and a list of warnings.
-- Throws a 'UsageError' if errors occurred during parsing (such as unknown
-- flags or missing arguments).
parseDynamicFlags :: Monad m =>
DynFlags -> [Located String]
-> m (DynFlags, [Located String], [Located String])
-- ^ Updated 'DynFlags', left-over arguments, and
-- list of warnings.
parseDynamicFlags dflags args = do parseDynamicFlags dflags args = do
-- XXX Legacy support code -- XXX Legacy support code
-- We used to accept things like -- We used to accept things like
......
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