never executed always true always false

    1 module GHC.Driver.Config.Parser
    2   ( initParserOpts
    3   )
    4 where
    5 
    6 import GHC.Prelude
    7 import GHC.Platform
    8 
    9 import GHC.Driver.Session
   10 import GHC.Driver.Config.Diagnostic
   11 
   12 import GHC.Parser.Lexer
   13 
   14 -- | Extracts the flags needed for parsing
   15 initParserOpts :: DynFlags -> ParserOpts
   16 initParserOpts =
   17   mkParserOpts
   18     <$> extensionFlags
   19     <*> initDiagOpts
   20     <*> (supportedLanguagesAndExtensions . platformArchOS . targetPlatform)
   21     <*> safeImportsOn
   22     <*> gopt Opt_Haddock
   23     <*> gopt Opt_KeepRawTokenStream
   24     <*> const True -- use LINE/COLUMN to update the internal location
   25