never executed always true always false

    1 module GHC.Driver.Config.Finder (
    2     FinderOpts(..),
    3     initFinderOpts
    4   ) where
    5 
    6 import GHC.Prelude
    7 
    8 import GHC.Driver.Session
    9 import GHC.Unit.Finder.Types
   10 
   11 
   12 -- | Create a new 'FinderOpts' from DynFlags.
   13 initFinderOpts :: DynFlags -> FinderOpts
   14 initFinderOpts flags = FinderOpts
   15   { finder_importPaths = importPaths flags
   16   , finder_lookupHomeInterfaces = isOneShot (ghcMode flags)
   17   , finder_bypassHiFileCheck = MkDepend == (ghcMode flags)
   18   , finder_ways = ways flags
   19   , finder_enableSuggestions = gopt Opt_HelpfulErrors flags
   20   , finder_hieDir = hieDir flags
   21   , finder_hieSuf = hieSuf flags
   22   , finder_hiDir = hiDir flags
   23   , finder_hiSuf = hiSuf_ flags
   24   , finder_dynHiSuf = dynHiSuf_ flags
   25   , finder_objectDir = objectDir flags
   26   , finder_objectSuf = objectSuf_ flags
   27   , finder_dynObjectSuf = dynObjectSuf_ flags
   28   , finder_stubDir = stubDir flags
   29   }